Programm beenden falls es schon läuft

raiha · Beiträge: 152

Hi,

wie kann ich beim Start eines Proggis prüfen, ob schon eine Inzanz von Ihm läuft und wenn ja, diese gleich beenden.

Danke Rainer

Narses · Verfasst: Di 23.05.06 12:01

MEHRFACHSTART

_________________
There are 10 types of people - those who understand binary and those who don´t.

Crowbar · Beiträge: 180 WinXP, SP2 D6 Enterprise

Hi,
ich habe es so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

...
Initialization
{ Verhindern, daß das Programm mehrfach gestartet wird! }
   mHandle:=CreateMutex(nil,true,'Programmname');
   if GetLastError=ERROR_ALREADY_EXISTS then
    begin
      MessageDlg('Das Programm ist bereits gestartet !',mtInformation,[mbOk],0);
      Halt;
     end;
 Finalization
   if mHandle <> 0 then CloseHandle(mHandle)
...
End.

Diesen Code habe ich am Ende meiner HauptForm gesetzt.
Hierbei wird eine Meldung ausgegeben, dass das Programm bereits gestartet ist und somit startet es nicht erneut.

Crowbar

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme