Liste aller geöffneten Dateien

[orion3000]

Hallo,
ich nutze für dein Problem folgende Functio, vieleicht Hilft diese dir weiter .

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;

Gruß
Orion3000