Nom CdromRésolu

Question

Qui peut m'aider à extraire le nom d'un cd rom
Merçi d'avance

japee · Accepted Answer

Cette fonction devrait te donner satisfaction.

Elle fait appel à Windows.pas.

function GetVolumeName(Drive: Char): String;
var
   DrivePath: String;
   MaximumComponentLength: DWORD;
   FileSystemFlags: DWORD;
   VolumeName: String;
begin
   Result := '';
   DrivePath := Drive + ':\';
   SetLength(Result, 64) ;
   GetVolumeInformation(PChar(DrivePath),
                        PChar(Result),
                        Length(Result),
                        nil,
                        MaximumComponentLength,
                        FileSystemFlags,
                        nil,
                        0);
end;


Bonne prog'   :-p 

N'oubliez pas de valider "Réponse acceptée" si ça vous convient, de toute manière vous ne pouvez pas valider autre chose !  :big)

Hijesse · Answer

C'est ok, merçi pour ton aide
 ;)

Nom Cdrom

2 réponses

Votre réponse

Discussions similaires