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;

[Roilo]

Les agradesco de nuevo, todo ha salido como agua.
Neftali, cuáles componentes son esos que te brinda información sobre la máquina y donde los puedo encontrar.
GRACIAS.

[Neftali [Germán.Estévez]]

Empezado por Roilo

Neftali, cuáles componentes son esos que te brinda información sobre la máquina y donde los puedo encontrar.

Aquí puedes encontrar unos cuantos, y si buscas por internet te aparecerán muchos más...
Personalmente he revisado el de MiTEC y es muy bueno; No se cómo se distribuye ahora, pero en versiones antiguas era gratuíto.

[Roilo]

Muy valiosos sus aportes...
Hasta Luego.