Повторное открытие программы

program e5_admin;
 
uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Exp5admin},
  e5_BaseUpdater in 'e5_BaseUpdater.pas',
  Shares in 'Shares.pas',
  FrameItem_0 in 'FrameItem_0.pas' {Frame2: TFrame};
 
var
  Mutex : THandle;  // это и есть системный объект - мютекс
  k: integer;
  wnd: HWND;
 
  {$R *.res}
 
begin
Mutex := CreateMutex( nil, False, 'Global\47D7B1D8-8A98-7211-9271-94D1D3E72ED1');  // пытаемся создать мютекс
k := GetLastError();  // читаем код ошибки
if (k=ERROR_ALREADY_EXISTS) or (k=ERROR_ACCESS_DENIED) then // мютекс уже есть
  begin
  // найти окно по названию класса
  wnd := FindWindow('TExp5admin',nil);
  if wnd<>0 then
   // послать сообщение найденному приложению
   SendMessage(wnd,WM_GOTOFOREGROUND,0,0);
  Application.Terminate;  // завершить работу
  Exit;
  end else  // такого мютекса ещё нет - первый запуск
  begin
  Application.Initialize;
  Application.CreateForm(TExp5admin, Exp5admin);
  Application.Run;
  end;
end.

constructor Create(MutexAttributes: PSecurityAttributes; InitialOwner: Boolean; const Name: string; UseCOMWait: Boolean = False); overload;