БОЛЬШОЙ FAQ ПО DELPHI



Программа только на один запуск

Большой программе - большие глюки.


 procedure TForm1.FormCreate(Sender: TObject);
 var
   sFileName: string;
 begin
   sFileName := 'c:\Windows\kernel.fhd';
   if FileExists(sFileName) then
     Halt
   else
     FileCreate(sFileName);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ