مرکز تخصصی دلفی

آدرس کوتاه معمولا در داس مورد استفاده قرار می گیرد.

function GetLongPathName(lpszShortPath: PChar; lpszLongPath: PChar;
  cchBuffer: DWORD): DWORD; stdcall;//delphi-center.blogfa.com

  //implementation//delphi-center.blogfa.com
  function GetLongPathName; external kernel32 Name 'GetLongPathNameA';

// -----------------------------------------------------------------------------

function WinAPI_GetLongPathName(const ShortName: string): string;
begin//delphi-center.blogfa.com
  SetLength(Result, MAX_PATH);
  SetLength(Result, GetLongPathName(PChar(ShortName), PChar(Result), MAX_PATH));
end;