将一个相对路径转化为绝对路径

时间:2010-01-30 08:19:50  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:tr>function GetAbsolutePath(BasePath, RelativePath:string):string;implementationuses ComObj, ComConst, dialogs;function PathCombine(lpszDest: PChar; const lpszDir, lpszFile: PChar):PChar; stdcall; external 'shlwapi.dll' name 'PathCombineA';function PathCombineA(lpszDest: PAnsiChar; const lpszDir, lpsz...
  正文:Delphi中没有提供将一个相对于基础路径的相对路径转化为绝对路径的函数,我迫不得已自己写了一个。


function GetAbsolutePath(BasePath, RelativePath:string):string;

implementation
uses ComObj, ComConst, dialogs;

function PathCombine(lphotoshop/ target=_blank class=infotextkey>pszDest: PChar; const lpszDir, lpszFile: PChar):
PChar; stdcall; external 'shlwapi.dll' name 'PathCombineA';
function PathCombineA(lpszDest: PAnsiChar; const lpszDir, lpszFile:
PAnsiChar): PAnsiChar; stdcall; external 'shlwapi.dll';
function PathCombineW(lpszDest: PWideChar; const lpszDir, lpszFile:
PWideChar): PWideChar; stdcall; external 'shlwapi.dll';

function GetAbsolutePath(BasePath, RelativePath:string):string;
var
Dest:array [0..MAX_PATH] of char;
begin
  FillChar(Dest,MAX_PATH+1,0);
  PathCombine(Dest,PChar(BasePath), PChar(RelativePath));
  Result:=string(Dest);
end;
将一个相对路径转化为绝对路径》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12621.html


关键字:

关于《将一个相对路径转化为绝对路径》文章的评论

相关文章

    无相关信息
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td