[Страдалецъ]

Ну наверное так:

Код:

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  f: file of TDateTime;
  d: TDateTime;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'App.ini');
{$i-}Reset(f);{$i+}
if IOResult <> 0
then begin
     Rewrite(f);
     d := Now;
     Write(f, d);
     end
else Read(f, d);
CloseFile(f);
if Trunc(Now - d) >= 1
then begin
     WriteLn('Start application');
     end;
end.