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.