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

* fixed findfirst,getfattr,setfattr.

Browse Source 
git-svn-id: trunk@4109 -
This commit is contained in:
yury 2006-07-06 19:03:24 +00:00
parent 451063e187
commit 2ee656c1ad
1 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
rtl/wince/dos.pp
View File

@ -347,6 +347,11 @@ procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
var
buf: array[0..MaxPathLen] of WideChar;
begin
if path = ''then
begin
DosError:=3;
exit;
end;
fillchar(f,sizeof(f),0);
{ no error }
doserror:=0;
@ -479,19 +484,27 @@ end;
procedure getfattr(var f;var attr : word);
var
l : longint;
l : cardinal;
buf: array[0..MaxPathLen] of WideChar;
begin
doserror:=0;
AnsiToWideBuf(@filerec(f).name, -1, buf, SizeOf(buf));
l:=GetFileAttributes(buf);
if l=longint($ffffffff) then
begin
doserror:=Last2DosError(GetLastError);
attr:=0;
end
if filerec(f).name[1] = #0 then
begin
doserror:=3;
attr:=0;
end
else
attr:=l and $ffff;
begin
doserror:=0;
AnsiToWideBuf(@filerec(f).name, -1, buf, SizeOf(buf));
l:=GetFileAttributes(buf);
if l = $ffffffff then
begin
doserror:=Last2DosError(GetLastError);
attr:=0;
end
else
attr:=l and $ffff;
end;
end;
@ -503,11 +516,13 @@ begin
if (attr and VolumeID)<>0 then
doserror:=5
else
AnsiToWideBuf(@filerec(f).name, -1, buf, SizeOf(buf));
if SetFileAttributes(buf,attr) then
doserror:=0
else
doserror:=Last2DosError(GetLastError);
begin
AnsiToWideBuf(@filerec(f).name, -1, buf, SizeOf(buf));
if SetFileAttributes(buf,attr) then
doserror:=0
else
doserror:=Last2DosError(GetLastError);
end;
end;
{******************************************************************************