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

* fix for (new) bug #7109

Browse Source 
git-svn-id: trunk@4039 -
This commit is contained in:
Tomas Hajny 2006-07-01 20:23:23 +00:00
parent b4668054c5
commit 37b80b35e7
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/win/dos.pp
View File

@ -655,9 +655,14 @@ begin
{Should return value load loaddoserror?}
ret:=GetShortPathName(@buffer,@buffer,255);
if ret=0 then
p:=strpas(buffer);
GetShortName:=ret<>0;
if (Ret > 0) and (Ret <= 255) then
begin
Move (Buffer, P [1], Ret);
byte (P [0]) := Ret;
GetShortName := true;
end
else
GetShortName := false;
end;
{ change to long filename if successful DOS call PM }
@ -680,9 +685,18 @@ begin
{Should return value load loaddoserror?}
ret:=GetFullPathName(@sfn,255,@lfn,filename);
if ret=0 then
p:=strpas(lfn); {lfn here returns full path, filename only fn}
GetLongName:=ret<>0;
{lfn here returns full path, filename only fn}
{ If successful, Ret contains length of the long file name,
0 is general error, return value larger than size of buffer (255) means
that the buffer size was not sufficient. }
if (Ret > 0) and (Ret <= 255) then
begin
Move (LFN, P [1], Ret);
byte (P [0]) := Ret;
GetLongName := true;
end
else
GetLongName := false;
end;
{******************************************************************************