Prüfen ob mein Programm bereits läuft

[nuclearping]

Die OneInstance.pas nutzt du so:

In deiner DPR:

Delphi-Quellcode:

program ...;

uses
  ...,
  OneInstance.pas;

...

procedure NewInstance(ProcessId: Cardinal; CmdLine: String; var Allow: Boolean);
begin
  Allow := FALSE;
end;


begin
  NewInstProc := NewInstance;
  ...
end.

Steht aber auch in der Unit oben

Delphi-Quellcode:

//                 - Durch eine Zuweisung von OneInstance.NewInstProc kann eine Ereignis-
//                 prozedur definiert werden, welche beim Start einer neuen Anwendungsinstanz
//                 aufgerufen wird. Parameter:
//                   ProcessId: Die Prozess-ID der neuen Anwendungsinstanz
//                   CmdLine  : Enthält Anwendungspfad sowie Startparameter
//                   Allow    : Gibt an ob die Instanz gestartet werden
//                              soll. (Rückgabeparameter, Standard: False)