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)