Как загрузить иконку CD-ROM

function
 GetCDIcon(Drive: Char): TIcon;
var

  ico: TIcon;
  ini: TIniFile;
  s, p: string
;
  i, j: Integer;
begin

  //Abbrechen wenn "AutoRun.Inf" nicht existiert.
  //Abort if "AutoRun.inf" doesn't exists.
  if
 FileExists(Drive + ':autorun.inf') = False then

    Exit;

  //"AutoRun.inf" offnen
  //Opens the "AutoRun.inf"
  ini := TIniFile.Create(Drive + ':autorun.inf');
  ico := TIcon.Create;

  try

    //Dateinamen lesen
    //Read the filename
    s := ini.ReadString('Autorun', 'ICON', '');

    //Abbrechen, wenn kein Icon festgelegt wurde
    //Abort if there is no icon specified
    if
 s = '' then

      Exit;

    //Icon von Datei laden
    //load the icon from a file
    if
 FileExists(s) then

      ico.LoadFromFile(s);
    if
 FileExists(Drive + ':' + s) then

      ico.LoadFromFile(Drive + ':' + s);

    //Icon aus einer Resource laden
    //Load the icon from a Win32 resource
    if
 (FileExists(s) = False) and
 (FileExists(Drive + ':' + s) = False) then

    begin

      for
 j := (Pos(',', s) + 1) to
 Length(s) do

      begin

        p := p + s[j];
      end
;
      i := StrToInt(p);
      for
 j := Length(s) downto
 (Pos(',', s)) do

        Delete(s, j, Length(s));

      if
 FileExists(s) = False then

        s := Drive + ':' + s;

      ico.Handle := ExtractIcon(hinstance, PChar(s), i);
    end
;

    Result := ico;
  finally

    ini.Free;
  end
;
end
;

Другое по теме:

• Проверить, открыт ли CD-ROM
• Открыть CD-ROM
• Открытие и закрытие нескольких приводов CD-ROM