doppelter Start verhindern und Prog in den Vordergrund

[khh]

hallo zusammen,
mit:

Delphi-Quellcode:

unit NichtDoppeltStarten;

{$mode objfpc}{$H+}



interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle

Initialization
  mHandle := CreateMutex(nil,True,'myprog.exe');
  // 'xxxxx' Der Anwendungsname ist hier einzutragen
  if GetLastError = ERROR_ALREADY_EXISTS then begin
    // Anwendung läuft bereits
    {showMessage('Anwendung läuft bereits!!!!!');}
    // Wenn du deine Meldung willst, mach die Klammern weg
    Halt;
  end;

finalization   // ... und Schluß
  if mHandle <> 0 then
    CloseHandle(mHandle)
end. {Dieter Hirt}

verhindere ich, dass mein Prog mehrfach gestartet wird.

Das funktioniert soweit auch.
Gibt es ne Möglichkeit, das Programm damit in den Vordergrund zu holen?

danke Gruss KH