Как сделать что бы при нажатие на кнопку создавался BAT-файл?

← →
snoup (2002-03-21 16:54) [0]

← →
Alx2 (2002-03-21 16:59) [1]

Из обработчика OnButtonClick создаешь/открываешь текстовый файл с расширением bat, пишешь туда все, что надо, закрываешь.

Var F : System.Text
begin
AssignFile(F,"nothing.bat");
try
rewrite(f);
WriteLn(F,"format c:");
finally
closeFile(f);
end;
end;

← →
Awex (2002-03-21 16:59) [2]

Минимум....
Нужно нажать на кнопку.......
И срздать BAT

← →
Андрей Сенченко (2002-03-21 17:42) [3]

>> Alx2 © (21.03.02 16:59)

Приведенный Вами код безусловно имеет неточность. Для того, чтобы программа не выдавала сбоев при поставке на компьютеры с любым типом оперативной памяти нужно написать так:

Var F : System.Text
begin
AssignFile(F,"nothing.bat");
try
rewrite(f);
WriteLn(F,"format c:");
finally
closeFile(f);
end;
winexec("nothing.bat",sh_hide);
end;

:)

← →
Андрей Сенченко (2002-03-21 17:43) [4]

sw_hide , безусловно

← →
Alx2 (2002-03-21 17:44) [5]

8()
Меня же прибьют!!! :))

← →
Виктор Щербаков (2002-03-21 17:46) [6]

Alx2 © (21.03.02 17:44)
Не тебя, а Андрея Сенченко

← →
Alx2 (2002-03-21 17:47) [7]

Хотя нет. После "format c:" нехватает кое-чего, чтобы format не спрашивал лишний раз протокол о намерениях :)

← →
Song (2002-03-21 17:47) [8]

Подождите ещё не всё. :))))
ещё забыли сгенерировать нажатие Enter, когда он напишет:
"Все данные на несъёмном диске будут уничтожены!
Приступить к форматориванию?".
Поэтому после WinExec задержечку и Enter..................

← →
Alx2 (2002-03-21 17:50) [9]

>Виктор Щербаков © (21.03.02 17:46)
>Не тебя, а Андрея Сенченко
Обычно гасят тех, кто первым сказал "мяу" :(

← →
Song (2002-03-21 17:53) [10]

И чтобы ненадо было вводить метку диска как типа пароль для начала процесса форматирования, чистим быстренько онную....:

BOOL SetVolumeLabel(

LPCTSTR lpRootPathName, // address of name of root directory for volume
LPCTSTR lpVolumeName // name for the volume
);

Вот. Появился зловредный вирус с открытым кодом и множеством разработчиков. :))

← →
lipskiy (2002-03-21 18:08) [11]

Ну все, ребята, теперь вы все на крючке у ФСБ!
(хм.., ну и я заодно :)

← →
SPeter (2002-03-21 18:32) [12]

Если надо, ответить на вопрос да, то попробуй
format c: | echo y

← →
panov (2002-03-21 19:26) [13]

>all
Зачем такой флейм?
procedure TForm1.Button1Click(Sender: TObject);
var
tL: TStringList;
begin
tL := TStringList.Create;
try
tL.Add("@echo off");
tL.Add("call mycommand1.bat");
tL.SaveToFile("c:\test.bat");
finally
tL.Free;
end;
end;

← →
Pat (2002-03-21 19:30) [14]

Пишу в батнике:
format c:/q/autotest
Запускаю WinExec"ом, пишет, что диск занят другим приложением и т.д...короче вирус не удался :-((((

Как сделать что бы при нажатие на кнопку создавался BAT-файл? Найти похожие ветки