Решает задачу через файл 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]