Problem beim Programmneustart mit Instanzkontrolle

[hathor]

Zitat von musicman56:

Hallo,

hMutex := CreateMutex(nil, True, PChar(UpperCase(ExtractFileName(ParamStr(0))))); ...Was mir außerdem nicht ganz optimal erscheint ist die Tatsache, dass mit ParamStr(0) zwar verhindert wird, dass dieselbe Exe zeimal gestartet wird, aber nicht eine weitere Instanz desselben Programmes in einem anderen Ordner. Das zu verhindern kommt bei mir zumindest sehr häufig vor.

Label1.Caption:= UpperCase(ExtractFileName(ParamStr(0)));
ergibt NUR den Programm-Namen OHNE Pfad, deshalb kann das Programm nicht 2x gestartet werden.

[musicman56]

Sorry, du hast natürlich recht. Das "UpperCase(ExtractFileName(..." habe ich übersehen.

[Furtbichler]

Das ist unpraktisch, weil meine Programme alle 'Project1.EXE' heißen.

[musicman56]

Das macht aber nix, weil die ja jeweils in einem anderen Ordner sein müssen