Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
class procedure NewInst(ProcessId: Cardinal; CmdLine: string; var Allow: Boolean); static;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OneInstance.NewInstProc := self.NewInst;
end;
Class-Methode = ohne Instanz
Static = ohne versteckten "Self"-Parameter