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]