程序运行一次

program EmpControl;

uses
  Forms,
  windows,
  Dialogs,
  MainUnit in 'MainUnit.pas' {MainForm},
  UploadEmpBaseUnit in 'UploadEmpBaseUnit.pas' {frmUploadEmpBase};

{$R *.res}
  var
    hMutex:HWND;
begin
  Application.Initialize;
  hMutex:=CreateMutex(nil,false,'EmpControl');
  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  end
  else
  begin
    ShowMessage('程序已在运行中');
    ReleaseMutex(hMutex);
  end
end.