Changer les noms de fichiers longs en noms de fichiers courts

uses Windows, SysUtils;

function GetShortName( sLongName : string ):string;
var
sShortName : string;
nShortNameLen : integer;

begin
SetLength( sShortName, MAX_PATH );
nShortNameLen :=
GetShortPathName( PChar( sLongName ),
PChar( sShortName ),
MAX_PATH - 1 );

if ( 0 = nShortNameLen ) then
begin
// handle errors...
end;

SetLength( sShortName, nShortNameLen );
Result := sShortName;
end;