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

* Fixed bug ID #23290 (FileSetDate on Dir)

Browse Source 
git-svn-id: trunk@26682 -
This commit is contained in:
michael 2014-02-06 12:01:25 +00:00
parent 083b2d4016
commit f2d163cd38
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/win/sysutils.pp
View File

@ -33,6 +33,7 @@ uses
{$DEFINE HAS_LOCALTIMEZONEOFFSET}
{$DEFINE HAS_GETTICKCOUNT}
{$DEFINE HAS_GETTICKCOUNT64}
{$DEFINE OS_FILESETDATEBYNAME}
{ used OS file system APIs use unicodestring }
{$define SYSUTILS_HAS_UNICODESTR_FILEUTIL_IMPL}
@ -451,7 +452,6 @@ begin
Result:=-1;
end;
Function FileSetDate (Handle : THandle;Age : Longint) : Longint;
Var
FT: TFileTime;
@ -463,6 +463,24 @@ begin
Result := GetLastError;
end;
{$IFDEF OS_FILESETDATEBYNAME}
Function FileSetDate (Const FileName : UnicodeString;Age : Longint) : Longint;
Var
fd : THandle;
begin
FD := CreateFileW (PWideChar (FileName), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_WRITE, nil, OPEN_EXISTING,
FILE_FLAG_BACKUP_SEMANTICS, 0);
If (Fd<>feInvalidHandle) then
try
Result:=FileSetDate(fd,Age);
finally
FileClose(fd);
end
else
Result:=GetLastOSError;
end;
{$ENDIF}
Function FileGetAttr (Const FileName : UnicodeString) : Longint;
begin