mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error with some archives (incorrect date/time)

Browse source
This commit is contained in:
Alexander Koblov 2009-02-14 22:12:58 +00:00
commit f3310087d2
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
fpackinfodlg.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Packed file information window
Copyright (C) 2008 Koblov Alexander (Alexx2000@mail.ru)
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -94,7 +94,11 @@ begin
lblPackedCompression.Caption:= IntToStr(100 - (HeaderData.PackSize*100 div HeaderData.UnpSize))+'%';
lblPackedMethod.Caption:= IntToStr(HeaderData.Method);
// DateTime and Attributes
dtDateTime:= FileDateToDateTime(HeaderData.FileTime);
try
dtDateTime:= FileDateToDateTime(HeaderData.FileTime);
except
dtDateTime:= 0;
end;
lblPackedDate.Caption:= DateToStr(dtDateTime);
lblPackedTime.Caption:= TimeToStr(dtDateTime);
lblPackedAttr.Caption:= AttrToStr(HeaderData.FileAttr);