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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour19/11/2001
VisualisationVu 989 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur