Cita:
Empezado por dec
GetDeviceProperty( PChar(s) );
|
Jeje, muy ingenioso dec aunque yo añadiria
Código Delphi
[-]
GetDeviceProperty( PChar(s)^ );
Otra forma de hacerlo:
Código Delphi
[-]
if Length(s) > 0 then
GetDeviceProperty( s[1] );
y la que yo usaria:
Código Delphi
[-]
var
Letra: Char;
begin
for Letra:= 'A' to 'Z' do
if GetDriveType(Pchar(Letra+':\')) = DRIVE_CDROM then
begin
ShowMessage(GetDeviceProperty(Letra));
end;
end;