var
hMutex : HWND;
Ret : integer;
begin
Application.Initialize;
Application.Title := '维护工作站';
hMutex := CreateMutex(nil, False, '维护工作站');
Ret := GetLastError;
if Ret <> ERROR_ALREADY_EXISTS then
begin
frmLogo := TfrmLogo.Create(Application);
frmLogo.Show;
frmLogo.Update;
Application.CreateForm(TDM, DM);
Application.CreateForm(TfrmMain, frmMain);
frmLogo.Hide;
frmLogo.Free;
Application.Run;
end
else
Application.MessageBox('维护工作站已运行!','提示', MB_OK + MB_ICONINFORMATION);
ReleaseMutex(hMutex);