procedure TForm1.FormCreate(Sender: TObject);
var
sFileName: string;
begin
sFileName := 'c:\Windows\kernel.fhd';
if FileExists(sFileName) then
Halt
else
FileCreate(sFileName);
end;
Статья Программа только на один запуск раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.
