System Delphi

Title: 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;