ShellAPI 取得可执行文件的图标

//取得可执行文件的图标 
   public
Procedure NextIcon;
     { Public declarations } 


{在implementation下面引用};

  uses ShellAPI;

procedure TForm1.NextIcon;
var
  Count : Integer;
  FileName : String;
  i:integer;
begin
   if( FileName <> Edit1.Text ) then
   begin
    FileName :=Edit1.Text;
    I := 0;
     //取得指定程序的图标
    Count := ExtractIcon( Application.Handle, PChar(FileName),
    $FFFFFFFF );
   end
   else
    Inc(I);

   if( I < Count ) then
    Image1.Picture.Icon.Handle :=
    ExtractIcon( Application.Handle, PChar(FileName), I )
   else
    ShowMessage( 'No more images' );
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
    NextIcon;
end;

通过 Wiz 发布