¿Cómo hacer un extractor de iconos?
 

buenas, pues como dice el titulo del hilo jeje mi pregunta es: como se cual api usar para crear un extractor de iconos de aplicaciones .EXE y como iria aqui>

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
(si no estoy mal aqui va la fuction) ?
implementation

{$R *.dfm}

end.

mi objetivo es crear un extractor de iconos de aplicaciones .EXE
y si es tanto donde puedo ver la funcion de cada api.

uso delphi 7 segunda edicion

espero no aya pedido mucho jeje gracias de antemano por la ayuda :)

saludos

Perdon por no poder ayudarte.
Offtopic: ¿Por qué todo el mundo usa Delphi 7?

saludos.

aqui hay algo que quizas pueda ayudarte

Prueba con esto, tiene lo que necesitas para empezar.

Gracias amigos por la ayuda ahora vere los link y les cuento


saludos

saludos.

en el formulario agregas un tbutton y un topendialog.
en el evento onclick del tbutton pones este codigo.

Código Delphi [-]
 
var
  NumberOfIcons, i,j: Integer;
begin
  j:=1;
   if opendialog1.Execute then
  begin
   icono := TIcon.Create;
   try
    // Get the number of Icons
    NumberOfIcons := ExtractIcon(Handle, PChar(opendialog1.FileName), UINT(-1));
    ShowMessage(Format('%d Icons', [NumberOfIcons]));
   
       for i := 0 to 10 do
    begin
      j:=j+1;
      // Extract an icon
      icono.Handle := ExtractIcon(Handle, PChar(opendialog1.FileName), i);
      // Draw the icon on your form
     DrawIcon(Form1.Canvas.Handle, 10, i * 40, icono.Handle);
  //se guardan los iconos en la ruta de el ejecutable
      icono.SaveToFile(ExtractFilePath(Application.ExeName)+inttostr(j)+'.Ico');
    end;
   finally
    icono.Free;
   end;
  end;

este codigo es solo una prueba.

Gracias amigos solucionado mi tema jeje