Скачать: CL | DM;

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

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

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

---

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

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

---

← →
Fay ©   (2004-04-05 11:01) [2]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c