Das Programm einmal Starten. Beispiel.

[Wishmaster]

Delphi-Quellcode:

unit Only_one;

interface

implementation
uses forms, windows;
var mutex : THandle;
    h     : HWnd;


initialization
  Mutex := CreateMutex(nil, true, 'NetRadio_v3');
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
     h := 0;
     repeat
       h := FindWindowEx(0, h, 'TApplication', PChar(Application.Title))
     until h <> application.handle;
      if h <> 0 then
        begin
         Windows.ShowWindow(h, SW_ShowNormal);
         windows.SetForegroundWindow(h);
       end;
     halt;
  end;
finalization
  ReleaseMutex(mutex);
end.