CD-ROM o CD-RW o DVD ....

[[seoane]]

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;