|
@@ -16,7 +16,7 @@ Subject : Handling of "tar" files
|
|
===============================================================================================
|
|
===============================================================================================
|
|
Author : Stefan Heymann
|
|
Author : Stefan Heymann
|
|
Eschenweg 3
|
|
Eschenweg 3
|
|
- 72076 Tübingen
|
|
|
|
|
|
+ 72076 T�bingen
|
|
GERMANY
|
|
GERMANY
|
|
|
|
|
|
E-Mail: [email protected]
|
|
E-Mail: [email protected]
|
|
@@ -305,7 +305,7 @@ BEGIN
|
|
IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
|
|
IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
|
|
FillChar(TimeVal, SizeOf(TimeVal), #0);
|
|
FillChar(TimeVal, SizeOf(TimeVal), #0);
|
|
FillChar(TimeZone, SizeOf(TimeZone), #0);
|
|
FillChar(TimeZone, SizeOf(TimeZone), #0);
|
|
- Result := FileDateToDateTime (SearchRec.Time);
|
|
|
|
|
|
+ Result := SearchRec.TimeStamp;
|
|
{$IFDEF Kylix}
|
|
{$IFDEF Kylix}
|
|
GetTimeOfDay (TimeVal, TimeZone);
|
|
GetTimeOfDay (TimeVal, TimeZone);
|
|
{$ELSE}
|
|
{$ELSE}
|