Иногда есть вероятность что ваш софт хотят вскрыть через файл hosts, от этого можно защититься при помощи этого кода.
Код
function GetCD: string;
var
S: array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(S, SizeOf(S));
Result:= Copy(S, 0, 1);
end;
function CheckHost: Boolean;
var
Memory: TStringList;
HostPath: string;
begin
Result:= False;
Memory:= TStringList.Create;
HostPath:= GetCD + ':\Windows\System32\drivers\etc\hosts';
Memory.LoadFromFile(HostPath);
if Pos('ваш_сайт.ру', Memory.Text) <> 0 then ExitProcess(0);
if Pos('ИП сайта', Memory.Text) <> 0 then ExitProcess(0);
Memory.Clear;
Memory.Free;
Exit;
end;
Добавлено (16.02.2017, 11:54)
---------------------------------------------
Ап
Добавлено (17.02.2017, 15:43)
---------------------------------------------
Ап
Добавлено (25.03.2017, 18:17)
---------------------------------------------
Ап
Добавлено (28.03.2017, 12:52)
---------------------------------------------
Ап
Добавлено (30.03.2017, 10:42)
---------------------------------------------
Ап
Добавлено (03.04.2017, 19:36)
---------------------------------------------
Ап
Добавлено (05.04.2017, 20:14)
---------------------------------------------
АП
Добавлено (08.04.2017, 15:29)
---------------------------------------------
Ап
Добавлено (10.04.2017, 21:57)
---------------------------------------------
Ап
