扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
![]() 图1 添加组件后的窗体 |
procedure TfrmMain.btnOpenClick(Sender: TObject); var i: Integer; Large, Small: HICON; nIcons: Integer; begin if OpenDialog1.Execute then begin self.Image1.Canvas.Refresh; nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1); for i:=0 to nIcons-1 do begin ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1); DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large); end; end; end; |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI, Grids, ExtCtrls; type TfrmMain = class(TForm) btnOpen: TButton; OpenDialog1: TOpenDialog; Image1: TImage; procedure btnOpenClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.btnOpenClick(Sender: TObject); var i: Integer; Large, Small: HICON; nIcons: Integer; begin if OpenDialog1.Execute then begin self.Image1.Canvas.Refresh; nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1); for i:=0 to nIcons-1 do begin ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1); DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large); end; end; end; end. |
![]() 图2 程序运行的初始画面 ![]() 图3 程序运行结果 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。