zoukankan      html  css  js  c++  java
  • 使用Shell32.dll中的图标资源

    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.

  • 相关阅读:
    [bzoj1113][Poi2008]海报PLA
    [CF1111D]Destroy the Colony
    [CF1111E]Tree
    [CF1111C]Creative Snap
    [洛谷P5136]sequence
    [洛谷P5190][COCI 2010] PROGRAM
    [洛谷P5137]polynomial
    US Open 2016 Contest
    【hackerrank】Week of Code 26
    usaco中遇到的问题
  • 原文地址:https://www.cnblogs.com/spiritofcloud/p/3978297.html
Copyright © 2011-2022 走看看