Subversion Repositories checksum-tools

Compare Revisions

Regard whitespace Rev 16 → Rev 17

/trunk/Windows/Unit3.pas
93,6 → 93,7
Refresh;
 
FileName := ParamChecksumFile;
if Copy(FileName, 2, 1) = ':' then FileName := '\\?\' + FileName; // To allow long filenames
ADirectory := ExtractFilePath(FileName);
 
if not FileExists(FileName) then