Hallo,
ich weiß, dass dieses Thema bereits im Forum besprochen wurde, aber die Funktion
IsFileInUse()
unter
http://www.delphipraxis.net/67631-ue...zt-werden.html funktioniert bei mir nicht.
Ich habe ein Testprogramm, dass bei mir die Datei test.txt exklusiv öffnet.
Code:
try
fs := TFileStream.Create('C:\test.txt', fmShareExclusive);
except
fs := nil; //damit fs.Free keine
Exception wirft
exit;
end;
Versuche ich die Datei im Texteditor zu öffnen, bekomme ich die Meldung, dass sie nicht geöffnet werden kann.
Soweit so gut.
Mein zweites Programm soll das überprüfen:
Code:
if IsFileInUse('C:\test.txt') = false then
Showmessage('Alles ok.')
else
Showmessage('Die Datei ist gesperrt.');
Leider gibt das Programm immer
Alles OK. aus.
Kann mir einer auf die Sprünge helfen, woran das liegen könnte?
Danke.