Решает задачу через файл hosts .
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]
procedure TForm1.Button1Click(Sender: TObject); // Нажатие кнопки
var myFile : TextFile;
begin
AssignFile(myFile, ‘C:\Windows\System32\drivers\etc\hosts’); // Открываем файл
Append(myFile);
WriteLn(myFile, ‘127.0.0.1 mail.ru’); // Записываем текст в файл
CloseFile(myFile); // Закрываем
end;
[/cc]