[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    > Has anyone had any luck making GetShortPathName
    > to work? It's supposed to convert a long file/path
    > name to a DOS 8.3 structure... but it keeps returning
    > the same long file name I pass in.

    Try this, it worked for me....

    function ToShortPath(  sPath : string  ) : string;
    var
       iLen : integer;
       sShort : string;
       szShort : PChar;
    begin
       iLen := Length(  sPath  );

       szShort := StrAlloc(  iLen  );
       GetShortPathName(  PChar(sPath),  szShort,  iLen  );

       sShort := szShort;
       StrDispose(  szShort  );

       Result := sShort;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]