Hallo,
ich habe folgendes Prob. und zwar habe ich eine Function erstellt welche feststellen soll ob nun gerade eine Datei geöffnet oder verwendet wird.
Delphi-Quellcode:
function IsFileInUse(FileName: string): boolean;
var TestFile: HFILE;
begin
TestFile:=CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
result:=TestFile=INVALID_HANDLE_VALUE;
if not result then CloseHandle(TestFile);
end;
Dies Funktioniert auch soweit ganz gut.
Aber bei DLLs oder anderen Dateien habe ich festgestellt,(Wenn diese von Windows ausgeführt werden), das die Funktion ein falsches Ergebniss liefert.
Also meine Frage wie kann ich überprüfen ob die obigen Testoptionen vorliegen oder nicht
Allen vielen Dank für Eure Mühe
Orion3000