unit1.pas

来自「Delphi7应用编程150例附书源码.rar」· PAS 代码 · 共 47 行

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.