paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 23:31:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WinCE compilation fixed

Browse Source 
git-svn-id: trunk@44025 -
This commit is contained in:
florian 2020-01-23 20:47:55 +00:00
parent 517a7aa80d
commit 8dc8647c7b
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/wince/sysutils.pp
View File

@ -254,14 +254,18 @@ Function FileAge (Const FileName : UnicodeString): Int64;
var
Handle: THandle;
FindData: TWin32FindData;
tmpdtime : longint;
begin
Handle := FindFirstFile(PWideChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
If WinToDosTime(FindData.ftLastWriteTime,Result) then
exit;
If WinToDosTime(FindData.ftLastWriteTime,tmpdtime) then
begin
Result:=tmpdtime;
exit;
end;
end;
Result := -1;
end;
@ -298,6 +302,8 @@ end;
Function FindMatch(var f: TAbstractSearchRec; var Name: UnicodeString) : Longint;
var
tmpdtime : longint;
begin
{ Find file with correct attribute }
While (F.FindData.dwFileAttributes and cardinal(F.ExcludeAttr))<>0 do
@ -309,7 +315,8 @@ begin
end;
end;
{ Convert some attributes back }
WinToDosTime(F.FindData.ftLastWriteTime,F.Time);
WinToDosTime(F.FindData.ftLastWriteTime,tmpdtime);
F.Time:=tmpdtime;
f.size:=F.FindData.NFileSizeLow;
f.attr:=F.FindData.dwFileAttributes;
Name:=F.FindData.cFileName;
@ -357,10 +364,14 @@ end;
Function FileGetDate (Handle : THandle) : Int64;
Var
FT : TFileTime;
tmpdtime : longint;
begin
If GetFileTime(Handle,nil,nil,@ft) and
WinToDosTime(FT, Result) then
exit;
WinToDosTime(FT, tmpdtime) then
begin
Result:=tmpdtime;
exit;
end;
Result:=-1;
end;