paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:00:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented ExtractShortPathName

Browse Source 
git-svn-id: trunk@9595 -
This commit is contained in:
michael 2007-12-30 21:45:48 +00:00
parent 130bac9c03
commit eec321b2f8
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysutils/fina.inc
View File

@ -113,9 +113,19 @@ begin
Result := '';
end;
function ExtractShortPathName(Const FileName : String) : String;
type
PathStr=string;
begin
{$ifdef MSWINDOWS}
SetLength(Result,Max_Path);
SetLength(Result,GetShortPathName(PChar(FileName), Pchar(Result),Length(Result)));
{$else}
Result:=FileName;
{$endif}
end;
type
PathStr=string;
{$DEFINE FPC_FEXPAND_SYSUTILS}

1
rtl/objpas/sysutils/finah.inc
View File

@ -30,6 +30,7 @@ function ExtractFileDrive(const FileName: string): string;
function ExtractFileName(const FileName: string): string;
function ExtractFileExt(const FileName: string): string;
function ExtractFileDir(Const FileName : string): string;
function ExtractShortPathName(Const FileName : String) : String;
function ExpandFileName (Const FileName : string): String;
function ExpandUNCFileName (Const FileName : string): String;
function ExtractRelativepath (Const BaseName,DestNAme : String): String;