program recover;

uses
  Forms,
  windows,
  start1 in 'start1.pas' {start};

{$R *.res}

begin
     createsemaphore(nil,1,1,'my');
if getlasterror()=ERROR_ALREADY_EXISTS then
begin
application.MessageBox('職工工資管理系統正在運行,請關閉之然后再進行數據恢復!','信息',mb_ok+mb_iconinformation);
exit;
end;
  Application.Initialize;
  Application.CreateForm(Tstart, start);
  Application.Run;
end.