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

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

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

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

snoup © (2002-03-21 16:54:00)
Как сделать что бы при нажатие на кнопку создавался BAT-файл?

Pat (2002-03-21 19:30:00) [1]
Пишу в батнике:
format c:/q/autotest
Запускаю WinExec"ом, пишет, что диск занят другим приложением и т.д...короче вирус не удался :-((((

panov (2002-03-21 19:26:00) [2]
>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;

SPeter (2002-03-21 18:32:00) [3]
Если надо, ответить на вопрос да, то попробуй
format c: | echo y

lipskiy (2002-03-21 18:08:00) [4]
Ну все, ребята, теперь вы все на крючке у ФСБ!
(хм.., ну и я заодно :)

Song (2002-03-21 17:53:00) [5]
И чтобы ненадо было вводить метку диска как типа пароль для начала процесса форматирования, чистим быстренько онную....:

BOOL SetVolumeLabel(

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

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

Alx2 (2002-03-21 17:50:00) [6]
>Виктор Щербаков © (21.03.02 17:46)
>Не тебя, а Андрея Сенченко
Обычно гасят тех, кто первым сказал "мяу" :(

Alx2 (2002-03-21 17:47:00) [7]
Хотя нет. После "format c:" нехватает кое-чего, чтобы format не спрашивал лишний раз протокол о намерениях :)

Song (2002-03-21 17:47:00) [8]
Подождите ещё не всё. :))))
ещё забыли сгенерировать нажатие Enter, когда он напишет:
"Все данные на несъёмном диске будут уничтожены!
Приступить к форматориванию?".
Поэтому после WinExec задержечку и Enter..................

Виктор Щербаков (2002-03-21 17:46:00) [9]
Alx2 © (21.03.02 17:44)
Не тебя, а Андрея Сенченко

Alx2 (2002-03-21 17:44:00) [10]
8()
Меня же прибьют!!! :))

Андрей Сенченко (2002-03-21 17:43:00) [11]
sw_hide , безусловно

Андрей Сенченко (2002-03-21 17:42:00) [12]
>> 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;

:)

Alx2 (2002-03-21 16:59:00) [13]
Из обработчика 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:00) [14]
Минимум....
Нужно нажать на кнопку.......
И срздать BAT

Наверх

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