HAI
Mutex
ist das was du suchst ...
Delphi-Quellcode:
unit Haupt_Form;
interface
uses
Windows,....
type
THauptForm =
class(TForm)
...
end;
var
HauptForm: THauptForm;
implementation
...
initialization
// prüfen ob Programm schon läuft
mHandle := CreateMutex(
nil, True, '
XYZ');
// Anwendung läuft bereits
if GetLastError = ERROR_ALREADY_EXISTS
then
begin
ShowMessage('
NewGen-Programm läuft bereits ! ');
Halt(haltALREADY_RUNS);
end;
finalization
// ... und Schluß
if mHandle <> 0
then CloseHandle(mHandle)
end.
