Mega Code Archive

 
Categories / Delphi / Files
 

Convert a short path in a long one

{ Die WinAPI Funktion GetLongPathName ist ab Windows 98 verfügbar. Mit dieser Funktion können kurze Pfade in Lange umgewandelt werden. } //declaration function GetLongPathName(lpszShortPath: PChar; lpszLongPath: PChar; cchBuffer: DWORD): DWORD; stdcall; //implementation function GetLongPathName; external kernel32 Name 'GetLongPathNameA'; // ----------------------------------------------------------------------------- function WinAPI_GetLongPathName(const ShortName: string): string; begin SetLength(Result, MAX_PATH); SetLength(Result, GetLongPathName(PChar(ShortName), PChar(Result), MAX_PATH)); end;