Ikon på Cd-drev

Navnet på CD-en må du kunne finde ved at læse volumen-navnet. Et evt ikon kan du finde navnet på i autorun/icon

>>nca

Kunne du komme med en mere detaljert svar... måske???

Nu kender jeg ikke til delphi, men du kunne jo bare sætte den til at kigge i x:\\autorun.ini(x=cdromdrevet) der står jo iconets navn fx x:\\icon.ico, ligesom weis siger...

>>Weis
Kender du drevbogstavet på det drev du vil undersøge?

>>nca

Drevet hedder E:\\

Her er en stump kode til at aflæse CD\'ens navn

function VolumeID(DriveChar: Char): string;
var
  OldErrorMode      : Integer;
  NotUsed, VolFlags : DWORD;
  Buf              : array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveChar + \':\\\'), Buf,
                          sizeof(Buf), nil, NotUsed, VolFlags,
                          nil, 0);
    Result := Format(\'[%s]\',[Buf]);
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=VolumeID(\'d\');
end;

Hvis du kikker i filen Autorun.inf under nøglen [Autorun] findes der nogle gange en værdi der hedder Icon=
Efter lighedstegnet kan stå navnet på en exe-fil, fx. Start.exe,0 hvor tallet så angiver nummeret på ikonet i den pågældense fil. Andre gange står der bare navnet på en ico-fil, som så ligger i roden på CD\'en.

Jeg har lige forsøgt idén, men jeg kan ikke få navnet frem. Jeg ændrede \"Label1.Caption:=VolumeID(\'d\');\" til \"Label1.Caption:=VolumeID(\'E\');\" men det eneste der kom til at stå var [] det virkede desværre ikke...

Det forstår jeg ikke. Hvilket operativsystem bruger du?
Jeg har forsket lidt videre. Her har du en kode til at finde ikonet.

procedure TForm1.Button4Click(Sender: TObject);
var
Reg: TIniFile;
IC: HIcon;
Iconname:String;
IconNr:Integer;
DriveLetter: String;
begin
  DriveLetter:=\'D:\\\';
  Reg:=TIniFile.Create(DriveLetter+\'Autorun.inf\');
  if Reg.SectionExists(\'autorun\') then
    IconName:=Reg.ReadString(\'autorun\',\'Icon\',\'\');
  if pos(\'.exe\',IconName)>0 then begin
    if pos(\',\',IconName)>0 then begin
      IconNr:=StrToInt(Copy(IconName,pos(\',\',IconName)+1,Length(IconName)));
      Iconname:=Copy(Iconname,1,pos(\',\',IconName)-1);
      IC:=ExtractIcon(HInstance,PChar(Driveletter+IconName),IconNr);
      Image1.Picture.Icon.Handle:=IC;
    end;
  end else
    Image1.Picture.LoadFromFile(Driveletter+Iconname);
  Reg.Free;
end;

>>>nca

Jeg har nogle problemer med Icon koden... Jeg bruger dette her for at åbne drevet...

procedure TMainForm.Button1Click(Sender: TObject);
begin
  If Button1.Caption = \'Åben CD-drev F:\\\' then begin
    OpenCloseCD(\'F:\\\',True); //Åben drev
    Button1.Caption := \'Luk CD-drev F:\\\';
  end
  else begin
    OpenCloseCD(\'F:\\\',False); //Luk drev
    Button1.Caption := \'Åben CD-drev F:\\\';
  end;
end;

Og jeg har prøve at indsætte koden flere sted men den laver fejl...

Kunne du ikke skrive hvor de forskellige koder skulle side???

Andreas

>>> Weis
Jeg kan se at du ikke har så mange point, men er det ikke lidt lousy kun at gi\' 20 point for så meget hjælp?
Send mig din email adresse, så skal jeg sende et testprogram til dig

Se her....

Problemet ligger i denne sætning \"Reg: TIniFile;\" den melder fejl i hele sætningen og jeg ved ikke hvorfor???

Og label tekste... den skriver [wb] hver gang den bliver opdateret... Ved ikke hvorfor???

Andreas

Jeg har nu fundet udaf hvordan jeg får opdateret cd navnet...
men jeg mangler stadigvæk at få indsat et ikon....

Stadig \"Reg: TIniFile;\" fejlen....

Du skal tilføje Registry under uses

Hvor ligger \"uses\"... og nu kommer der ikke andre ting som man skal gøre i kodningen sener...

Andreas

Jeg tror nok jeg ved hvor koden skal sidde nu...

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MMSystem, ExtCtrls, Registry;

Hvis det er rigtigt er det da et skridt frem, men men men jeg har stadigvæk fejl med samme sætning og ved stadigvæk ikke hvorfor???

Andreas

Hej Andreas
Send mig din email-adresse, så skal du få et program til test.

ok...

0991aweis@elev.daks.dk

Andreas