Forum: Algorithmen, Datenstrukturen und Klassendesign
by milos,
20. Apr 2015
Dann ist es wahrscheinlich trotzdem nicht schlecht versuchen den Order umzubenennen.
Wenn du einzelne Dateien überprüfen müsstest könnte man einfach bei der 1000. Datei einfach wieder die 1. aufmachen und die ganze Prüfung ist für nichts zu gebrauchen ^^
Freundliche Grüsse
Forum: Algorithmen, Datenstrukturen und Klassendesign
by milos,
20. Apr 2015
function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then Exit;
HFileRes := CreateFile(PChar(FileName),
GENERIC_READ or GENERIC_WRITE,
0,
nil,