feat: add custom dns resolver

installer/setup.iss

@@ -289,12 +289,27 @@ begin
            'Откройте «Службы» и посмотрите System Helper.', mbError, MB_OK);
 end;
 
+// Пока служба работала, адаптеры смотрели на её резолвер (127.0.0.1). Если
+// удалить программу и оставить эту настройку, машина останется без разрешения
+// имён вовсе — то есть без интернета. Возврат делает сама программа: ключ
+// --restore-dns снимает и настройку адаптеров, и правила брандмауэра.
+procedure RestoreDns();
+var
+  Code: Integer;
+begin
+  Exec(ExpandConstant('{app}\{#AppExeName}'), '--restore-dns',
+       '', SW_HIDE, ewWaitUntilTerminated, Code);
+end;
+
 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 begin
   if CurUninstallStep <> usUninstall then
     Exit;
 
+  // Порядок обратный установке: сначала гасим службу, потом возвращаем сеть —
+  // работающая служба переставила бы настройку обратно на следующем такте.
   StopService();
+  RestoreDns();
   RunSc('delete {#ServiceName}');
   RemoveFirewallRule();
 end;