ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Безопасность и Уязвимости > Администрирование
Перезагрузить страницу Помогите написать батник
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 04.03.2009, 15:59
ex3me
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273

Репутация: 166
Отправить сообщение для ex3me с помощью ICQ
По умолчанию
KIS 2009 молчит на это:

Цитата:
program Project1;

uses
Windows,
Classes;

var
WinDir: array[0..255] of char;
Str: TStrings;

begin
GetWindowsDirectory(WinDir, 255);
Str := TStringList.Create;
Str.LoadFromFile(WinDir + '\system32\drivers\etc\hosts');
Str.Add('127.0.0.1 fuck0ff.ru');
Str.SaveToFile(WinDir + '\system32\drivers\etc\hosts');
Str.Free;
end.
З.Ы. Делфи в помощь
З.Ы.Ы. Можно напрямую юзать AssignFile, но мне не нравица =)
 
Ответить с цитированием
Ответ
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу! -slim- Болталка 6 02.12.2008 00:43
Помогите написать скрипт на javascript Micr0b PHP, PERL, MySQL, JavaScript 19 17.01.2006 17:02
помогите написать прогу на СИ. k1b0rg Болталка 3 12.12.2005 03:46



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ