Delphi里的短文件名如何转换为完整的长路径名呢?

问答知识库用户 |浏览305次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/17 22:00

function GetLongPathName(Src, Dest: PChar; cch: DWord): DWord; stdcall;
  external 'Kernel32.dll' name 'GetLongPathNameA';

function ShortPathToLongPath(const AShortName: string): string;
var
  sz: array [0 .. MAX_PATH - 1] of Char;
begin
  FillChar(sz, SizeOf(sz), 0);
  GetLongPathName(PChar(AShortName), sz, MAX_PATH);
  Result := string(sz);
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...