İcon'ların hepsini gösterme.

[kaynak]

Bir exe dosyasının içindeki bütün iconları gösteren bir uygulama yapmak istiyorum. Hani şu windowsun icon değiştirme penceresi varya onun gibi (Resim ekte). Örnek veya adres verebilirseniz sevinirim.

[Sedat Atif]

Merhaba.

Aşağıda linkini verdiğim sayfada benzer bir uygulamanın nasıl yapılacağı anlatılıyor. Makalenin sonundaki linkten kaynak kodlarını da indirebilirsiniz.

"An Icon Extractor and Viewer" ( http://www.delphi-central.com/iconex.aspx )

Bu arada örnekteki
" NoOfIcons:=extracticon(handle,pchar(FileListBox1.F ileName),-1); "
satırı hata verdi bende, "-1" değerini "0" yapınca vermedi.

[kaynak]

Evet aynı hatayı bende de verdi ben başka bir yerden daha buldum onda UINT(-1) olarak vermiş. Böyle yaparsan çalışıyor.

Tek sorun bütün iconları neye aktarabilirim??? TImage olmaz tek bir icon alıyor o zaman. ListView gibi birşey olması lazım. Iconları kabul eden.

www.geocities.com/it_iz_unreal/ticonagent.zip

bir bak istersen

[Sedat Atif]

kaynak, mesajından alıntı:

Evet aynı hatayı bende de verdi ben başka bir yerden daha buldum onda UINT(-1) olarak vermiş. Böyle yaparsan çalışıyor.

Hem de 0 yapınca başka sorunlar çıkıyormuş, doğrusu bu, teşekkürler.

kaynak, mesajından alıntı:

Tek sorun bütün iconları neye aktarabilirim??? TImage olmaz tek bir icon alıyor o zaman. ListView gibi birşey olması lazım. Iconları kabul eden.

Bu ikonları ne yapacağınıza bağlı, amaç sadece göstermekse TImage de olabilir. ListBox'a atmak isterseniz onun ownerdraw özelliğinden faydalanabilirsiniz.

Mesela ben o sitedeki örneğe bir ListBox bir de ImageList ekledim. ListBox'un "Style" özelliğini "lbOwnerDrawFixed" ve "ItemHeight" özelliğini de "32" yaptım. Bir de ImageList ekledim (IL1 adında). Onun da Height ve Width özelliklerini "32" yaptım.

Sonra kodlarda şu değişiklikleri yaptım:

procedure TForm1.FileListBox1Change(Sender: TObject); (* Added by Object Inspector *)
var NoOfIcons: integer;  i:integer;  bmp:TPicture;
begin (* Added by Object Inspector *)
    (* Only do it if a file is selected *)
    if FileListBox1.FileName <> '' then
    begin
        (* Change the caption of the Application to show which file *)
        (* is being looked at *)
        caption := FileListBox1.FileName;

       (* Get the number of icons the file contains by passing -1 to *)
       (* the Windows API call extracticon *)
       NoOfIcons:=ExtractIcon(handle,pchar(FileListBox1.FileName),UINT(-1));

       bmp:=TPicture.Create; // geçici TPicture
       listbox1.Clear;       // önce listbox'u temizle ki olmayan ikonları göstermesin
       IL1.Clear;            // ImageList'i de aynı sepeble temizle

       for i:=0 to (NoOfIcons-1) do
       begin
       ListBox1.Items.Add(''); // listbox'da boş item'lar oluştur
       bmp.Icon.Handle:=ExtractIcon(handle,pchar(FileListBox1.FileName),i); //geçici TPicture atama yap
       IL1.AddIcon(bmp.Icon);  // ImageList'e ikonu ekle
       end;

       bmp.Free;  // yok et

       (* Change label1 to show how many icons the file contains *)
       Label1.caption := 'No of Icons: '+inttostr(NoOfIcons);

        (* If there are no Icons do not allow the spinedit to be used *)
        if NoOfIcons = 0 then
          spinedit1.enabled:=false
        else
        begin
            (* Make the icon to display be the first *)
            spinedit1.value:=0;

            (* Do not let the spinedit go past the number of icons *)
            spinedit1.MaxValue:=NoOfIcons-1;

            (* Make sure its enabled *)
            spinedit1.enabled:=true;

            (* Call the spin edit change routine to load the first icon *)
            SpinEdit1Change(nil);
        end;
    end;
end; (* Added by Object Inspector *)

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  IL1.Draw(listbox1.Canvas,rect.Left,rect.Top,index);
end;

Böylece ikonları listbox'da gösterir hale geldi.

Tabi daha iyi bir kodlama yapılabilir, ben Delphi'yi çok iyi biliyor değilim.

[kaynak]

@Sedat Atif: Teşekkür ederim yardımların için. Bende bildiklerimi, bulduklarımı vs.. ekleyerek isteğimi karşılayan yaptım birşeyler.

@naesse: Verdiğin program yapmak istediğim tarza yakın ama ben hazırını değil kendim yapabileceğim tarzda kod örnekleri istemiştim genede sağol.

[Sedat Atif]

kaynak, mesajından alıntı:

@Sedat Atif: Teşekkür ederim yardımların için. Bende bildiklerimi, bulduklarımı vs.. ekleyerek isteğimi karşılayan yaptım birşeyler.

Rica ederim. Nasıl yaptığınızı kısaca paylaşır mısınız? Gizli değilse tabi.

[kaynak]

procedure TForm2.Button1Click(Sender: TObject);
var
   h : hIcon;
   ikon : TIcon;
   toplam, i, baslik : integer;
   kisayol, ikonyolu : string;
   ListeEleman : TListItem;
   link: TLinkInfo;
begin
  ikon:=TIcon.Create; // HIcon To TIcon
  ListView1.Clear;
  ListView1.Items.BeginUpdate;

  //ListView1.Columns.Add; // Kolon ekle
  //ListeEleman.Caption:='Deneme';
  if OpenDialog1.Execute then
  Begin
	kisayol:=OpenDialog1.FileName;
  End;

  if GetLinkInfo(kisayol, link) then
	ikonyolu:=link.IconPath;

  toplam:=ExtractIcon(Handle, PChar(ikonyolu), UINT(-1));
  for i:=0 to toplam-1 do
  begin
	h:=ExtractIcon(Handle, PChar(ikonyolu), i);
	ikon.Handle:=h;
	ListeEleman:=ListView1.Items.Add;
	baslik:= i + 1;
	ListeEleman.Caption:=IntToStr(baslik);
	ListeEleman.ImageIndex:=ImageList1.AddIcon(ikon);
  end;
  ListView1.Items.EndUpdate;
  ikon.Destroy;

  ShowMessage(ikonyolu +#10'daki Toplam icon sayısı: ' + IntToStr(toplam));
end;

Not: link: TLinkInfo; başka bir unit'ten geliyor. Sadece belirtilen kısayol dosyasının hangi exe veya diğer dosyadan ikonları aldığını bulmak için kullanıldı.

[Sedat Atif]

Güzel olmuş Paylaştığınız için de teşekkürler.

[kaynak]

Forumun amacıda bu değil mi zaten.