Mistři v programování na #hovnokod

Delphi #629

hMutex := CreateMutex(0, true , 'Radionic');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    FullProgPath := PChar(Application.ExeName);
    WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function
    Application.Terminate; // or: Close;
  end;

HovnoKod,