Zur Info, wenn jemand Probleme mit dieser Funktion unter Win98 hat.
Ich hatte Probleme mit dieser Funktion, wenn das Programm unter Win98 läuft.
Aber das wissen die Win-Experten besser, warum.
Delphi-Quellcode:
function IsFileInUse(const FileName: String): Boolean;
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(FileName) then exit;
//Probleme mit Win98, aber unter XP OK
//HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
//läuft offensichtlich unter 98 und XP
HFileRes := CreateFile(PChar(FileName), GENERIC_READ {or GENERIC_WRITE},0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then CloseHandle(HFileRes);
end;