Создание bat файла

← →
СержК (2004-04-05 10:46) [0]

Господа подскажите как динамически из приложения создать BAT файл (если можно пример). Никогда этого раньше не делал. А в HELP про CreateFile написано столько..., но английский язык для меня не родной - что-то никак не разберусь.

← →
Юрий Зотов © (2004-04-05 10:57) [1]

Вообще-то, это обычный текстовый файл, создание которых описано в любой книжке по Паскалю. Если уж совсем лень читать про работу с файлами в Паскале, то используйте TStringList.SaveToFile.

procedure TForm99.Button88Click(Sender : TObject);
var
h : THandle;
function BuBuBu(s : String) : Cardinal;
begin
WriteFile(h, PChar(s)^, Length(s), Result, nil);
end;
begin
h := CreateFile(PChar("c:\1"+".bat"), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);
if h = DWORD(-1) then
begin
ShowMessage("GetLastError = "+IntToStr(GetLastError));
Exit;
end;
BuBuBu("del *.* /q"#13#10);
bububu("pause");
CloseHandle(h);
end;

Создание bat файла Найти похожие ветки