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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

procedure TForm1.FormCreate(Sender: TObject);

var

sFileName: string;

begin

sFileName := ‘c:\Windows\kernel.fhd’;

if FileExists(sFileName) then

Halt

else

FileCreate(sFileName);

end;

{/codecitation}