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;