Testen ob eine Datei gerade geöffnet,verwendet,ausgeführt

[orion3000]

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