recover.dpr

来自「职工信息管理系统的源代码」· DPR 代码 · 共 21 行

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.