Schauen ob Datei in Benutzung ist

[meisteralex]

Hi Leute, ich probiere mit
checksumme := THash_MD5.CalcFile(filename, TFormat_HEX);
die MD5-Checksumme einer DAtei zu bkeommen
ist die datei in benutzung gibt es allerdings eine fehlermeldung.
Ob das so ist, teste ich mit folgender Funktion ab:

Delphi-Quellcode:

function IsFileInUse(const FileName: String): Boolean;
var
  HFileRes : HFILE;
begin
  Result := false;
  if not FileExists(FileName) then exit;
  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;

alerdings liefert die funktion auch true zurück, wenn die datei nur schreibgeschützt ist, was nicht in meinem sinne ist