ShGetFileInfo 来分别取得程序的大小图标

最新推荐文章于 2020-06-05 17:52:52 发布

qi_jianzhou

最新推荐文章于 2020-06-05 17:52:52 发布

阅读量1.9k

点赞数

分类专栏： Delphi 文章标签： button forms interface windows image class

本文链接：https://blog.csdn.net/qi_jianzhou/article/details/668089

版权

Delphi 专栏收录该内容

97 篇文章 0 订阅

订阅专栏

本文介绍了一种使用 Delphi 的 ShellAPI 来获取文件的小图标和大图标的方法，并展示了如何通过 TOpenDialog 选取文件后，利用 shGetFileInfo 函数显示所选文件的图标和类型名称。

摘要由CSDN通过智能技术生成

利用了 shellapi 中的 TShFileInfo 以及 ShGetFileInfo 来分别取得程序的大小图标

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

uses shellapi;
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
shFileInfo:TShFileInfo;
icon:Ticon;
begin
icon := ticon.Create;
try
    if opendialog1.Execute then
    begin
      shGetFileInfo(pchar(opendialog1.FileName),0,shFileInfo,sizeof(TShFileInfo),
      shellapi.SHGFI_ICON or shellapi.SHGFI_LARGEICON or shellapi.SHGFI_TYPENAME
       or SHGFI_DISPLAYNAME );
      icon.Handle := shFileInfo.hIcon;
      self.Image1.Picture.Assign(icon);
      form1.Caption:=shFileInfo.szDisplayName;
      edit1.Text:=shFileinfo.szTypeName;
      self.Image1.Update;
    end;
finally
    icon.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
shFileInfo:TShFileInfo;
icon:Ticon;
begin
icon := ticon.Create;
try
    if opendialog1.Execute then
    begin
      shGetFileInfo(pchar(opendialog1.FileName),0,shFileInfo,sizeof(TShFileInfo),
      shellapi.SHGFI_ICON or shellapi.SHGFI_SMALLICON or shellapi.SHGFI_TYPENAME);
      icon.Handle := shFileInfo.hIcon;
      self.Image1.Picture.Assign(icon);
      self.Image1.Update;
    end;
finally
    icon.Free;
end;