Ende von MDI-Anwendungen erfahren

[Schwedenbitter]

Danke für den Tipp!

Zitat von Tryer:

... bei Erfolg einen Event auslöst. ...

Wie mache ich so etwas? Habe schon die Suche bemüht. Aber da finde ich immer nur sehr spezielle, das mir nicht auf die Sprünge hilft.

Auch mit den Parametern von CreateFile() tue ich mich schwer. Ich habe (gerade wegen dwDesiredAccess etc.) mal in der Hilfe nachgesehen, aber nichts gefunden, was mich weiter bringt.
Das hier bringt mir als Fehlermeldung "Falscher Parameter":

Delphi-Quellcode:

Function OpenExclusive(FName: String): Boolean;
Var
   FHandle      : THandle;
Begin
   FHandle:=CreateFile(PChar(FName),
                       GENERIC_READ Or GENERIC_WRITE,      // dwDesiredAccess
                       OF_SHARE_EXCLUSIVE,               // dwShareMode
                       nil,                              // lpSecurityAttributes
                       OPEN_EXISTING,                     // dwCreationDisposition
                       0,
                       0);
   If FHandle=INVALID_HANDLE_VALUE Then
      ShowMessage(SysErrorMessage(GetLastError));

End;

Gruß, Alex