uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs;
type TForm1 = class(TForm) 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 Ico: TIcon; Sfi: Tshfileinfo; I : Integer; begin
//分配一个句柄给图象列表
DesktopIcon:= TImageList.Create(Self); DesktopIcon.Handle := SHGetFileInfo('''''''', 0, sfi, SizeOf(TSHFileInfo), shGFI_SYSICONINDEX or SHGFI_SMALLICON); DesktopIcon.ShareImages := TRUE; For I:=0 to DesktopIcon.count -1 do Begin Ico := Ticon.Create; DesktopIcon.GetIcon(I,Ico); Ico.SaveToFile(''''c:\icons\''''+inttostr(i)+''''.ico''''); Ico.Free; End;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Desktopicon.free; end;
end.
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18