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