procedure TForm1.toHosts(s: string; clear: boolean);
var
sysDir : string;
f : TextFile;
begin
Setlength(sysDir,MAX_PATH);
GetSystemDirectory(PChar(SysDir),MAX_PATH);
if sysDir<>'' then begin
SetLength(sysDir,pos(#0,sysDir)-1);
sysDir:=sysDir+'\drivers\etc\hosts';
↧