nur eine anwendung mit parametern

[SirThornberry]

Bezüglich des Mehrfachstarts sollte das gehen

Delphi-Quellcode:

var LHandle: Cardinal;
    Lclass: Array[0..255] of Char;
begin
  CreateMutex(nil,True,'Beliebiger Ausdruck für den Mutex'); //kein mehrfachstart
  if GetLastError = ERROR_ALREADY_EXISTS then //kein mehrfachstart
  begin
    Lhandle := FindWindow(nil, nil);
    while Lhandle <> 0 do
    begin
      GetClassName(Lhandle, Lclass, 255);
      if (Lhandle <> handle) and (string(Lclass) = self.ClassName) then
      begin
        SendMessage(Lhandle, WM_USER + 2, 0, 0); //an dieser Stelle ist dein Einfallsreichtum gefragt, bei meiner Programmvariante sende ich einfach eine message an die bereits laufende instanz welche sich dann in den fordergrund bringt
        Lhandle := 0;
      end else Lhandle := GetWindow(Lhandle, GW_HWNDNEXT);
    end;
    Application.Terminate;
  end;