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