Nur 1 Instanz des Programmes

[yörsch]

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.