MD5 berechnet die Hashsumme vom Film viel zu lange...

[shmia]

Man könnte noch das Flag FILE_FLAG_SEQUENTIAL_SCAN angeben:

Delphi-Quellcode:

function MD5File(const FileName: string): TMD5Digest;
var
 F: THandleStream;
 Handle: HFILE;
begin
 Handle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,
  OPEN_EXISTING, 
  FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, // <===
  0);
 if Integer(Handle) < 0 then
   raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);

Ob's was bringt muss man testen.