Mehrfachaufrufe verhindern...

[Eselchen]

Hallo,
ich möchte verhindern können, daß ein Programm mehrfach gestartet wird.
Habe dafür mal diesen Code ausprobiert (stammt aus einem ältern Delphi-Buch), der einen Mehrfachaufruf auf die schon Laufende Application switchen soll:

Delphi-Quellcode:

program App;

uses
  Forms,WinProcs,WinTypes,
  Main in 'Main.pas' {MainForm},

{$R *.RES}

var
  PrevInstance : hWnd;
const
  AppName = 'Applikation';

begin
  PrevInstance := FindWindow ('TApplication',AppName);
   if PrevInstance <> 0 Then
    if IsIconic(PrevInstance) Then ShowWindow(PrevInstance,sw_restore)
                              Else BringWindowToTop(PrevInstance)
   Else
    Begin
      Application.Name := AppName;
      Application.Initialize;
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    End;  
end.

Das ganze funtzt aber net. Die Mehrfachaufrufe gehen immer noch; mein Problem ist halt, daß ich auf Hardwarelevel programmiere und verhindern muss, daß ich auf die entsprechenden Ports 2x zugreife....


Weiß da jemand was dazu??

Danke mal im Voraus

Gruß Eselchen

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]