本文整理自网络,侵删。
//声明:ExtractIcon( hInst: HINST; {调用函数的程序实例} lpszExeFileName: PChar; {文件路径; 文件可以是 *.exe、*.dll、*.ico} nIconIndex: UINT {图标索引}): HICON; {返回图标句柄; 索引为 0 时返回第一个图标句柄; 索引为 #FFFFFFFF 时返回图标总数}
//举例:unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;
var Form1: TForm1;
implementation
{$R *.dfm}
uses ShellAPI; {ExtractIcon 在其中声明}
procedure TForm1.Button1Click(Sender: TObject);var ico: TIcon; i,count,x,y,w,h: Integer; FilePath: string;begin {随便找了个路径, 如果缺失会退出} FilePath := 'C:\Program Files\Macromedia\Fireworks 8\Fireworks.exe'; if not FileExists(FilePath) then begin ShowMessage('文件不存在'); Exit; end;
ico := TIcon.Create; x := 10; y := 10; w := 0; h := 0; Repaint;
{先算出文件内的图标总数} count := ExtractIcon(HInstance, PChar(FilePath), HICON(-1));
for i := 0 to count - 1 do begin {循环提取图标} ico.Handle := ExtractIcon(HInstance, PChar(FilePath), i);
{画出图标} Canvas.Draw(x,y,ico);
{下面只是调整显示位置} if w < ico.Width then w := ico.Width; if h < ico.Height then h := ico.Height; x := x + ico.Width + 10; if x >= ClientWidth - w then begin x := 10; y := y + h + 10; end; end;
ico.Free;end;
end.
相关阅读 >>
Delphi strtofloat 将“字符型”转换成“浮点型”
Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误
Delphi shellexecute调用系统命令关闭计算机
更多相关阅读请进入《Delphi》频道 >>