...kurze Pfade in lange umwandeln ?

Autor: Adrian Hämmerli
Homepage: http://www.sdnag.com

Kategorie: Dateien

{
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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base