您现在正在浏览：首页 > 站长天地 > 站长学院 > 开发语言 > Delphi教程

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

时间: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;