输出SHELL32.DLL的图标

unit iconobject; 
inte易做图ce 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls,shellapi,comobj, ComCtrls; 
type 
  TForm1 = class(TForm) 
    ListView1: TListView; 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
var 
  Form1: TForm1; 
  Desktopicon: TimageList; 
implementation 
{$R *.DFM} 

procedure TForm1.FormCreate(Sender: TObject); 
Var  Sfi       : TSHFileInfo; 
     I         : Integer; 
     ListItem  : TListItem; 
begin 
// 输出所有的 windows 95/98/2000 图标
DesktopIcon:= TImageList.Create(Self); 
DesktopIcon.Handle := SHGetFileInfo(, 0, sfi, SizeOf(TSHFileInfo), 
     shGFI_SYSICONINDEX or SHGFI_SMALLICON); 
DesktopIcon.ShareImages := TRUE; 
ListView1.SmallImages := Desktopicon; 
For I:=0 to 255 -1 do 
With ListView1 Do 
Begin 
ListItem := Items.add; 
ListItem.Caption := Inttostr(I); 
ListItem.ImageIndex := I; 
End; 
end; 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
Desktopicon.free; 
end; 
end.

补充：软件开发 , Delphi ,

上一个：SHELL编程：利用CSIDL打开特殊文件夹
下一个：把图标存储在SHELL32.DLL