Save icons from shell32.dll 的Delphi源码

今天药忘吃喽~ 2021-11-30 01:35 289阅读 0赞

//Cust and paste into a new application and the output will  
//be placed in a folder called c:\\icons

//-------------------------- Cut -----

unit Unit1;

interface

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; // I Love you imagelist  
implementation

\{$R \*.DFM\}

procedure TForm1.FormCreate(Sender: TObject);  
Var Ico: TIcon;  
    Sfi: Tshfileinfo;  
    I  : Integer;  
begin

// Assign Handle to imageList  
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.

//---------------------paste----

转载于:https://www.cnblogs.com/MaxWoods/archive/2010/04/11/1709680.html

发表评论取消回复

表情：

评论列表（有 0 条评论，289人围观）

还没有评论，来说两句吧...

相关阅读

相关查看c#的dll源码工具

LSpy 是一个开源的 .NET 浏览器和反编译工具。官方网站: http://www.ilspy.net/ 中文版官方网站： http://www.fishl...

旧城等待，/ 2024年04月19日 10:24/ 0 赞/ 72 阅读

相关 delphi 创建dll_从Delphi创建和使用DLL

delphi 创建dll A Dynamic Link Library (DLL) is a collection of routines (small programs)

左手的ㄟ右手/ 2022年12月06日 15:44/ 0 赞/ 353 阅读

相关 delphi加载c语言dll文件,delphi怎么调用DLL函数(C语言)

delphi怎么调用DLL函数(C语言) Delphi / Windows SDK/API http://www.delphi2007.net/DelphiAPI/html/

爱被打了一巴掌/ 2022年10月14日 10:47/ 0 赞/ 259 阅读

相关 C#调用WIN32 的API函数--USER32.DLL

using System; using System.Collections.Generic; using System.Linq; using Sy

╰半夏微凉°/ 2022年08月25日 09:19/ 0 赞/ 247 阅读

相关 Inject DLL from kernel mode

How kernel mode injection works? 1) Get the address of KdVersionBlock from KPCR. (\_\_r

超、凢脫俗/ 2022年08月04日 13:34/ 0 赞/ 197 阅读

相关微软核心模块shell32.dll的应用

没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的D

以你之姓@/ 2022年02月02日 01:39/ 0 赞/ 223 阅读

相关 Save icons from shell32.dll 的Delphi源码

//Cust and paste into a new application and the output will //be placed in a folder ca

今天药忘吃喽~/ 2021年11月30日 01:35/ 0 赞/ 290 阅读

相关从内存中加载DLL DELPHI版

//从内存中加载DLL DELPHI版 unit MemLibrary; interface uses Windows;

雨点打透心脏的1/2处/ 2021年11月23日 18:24/ 0 赞/ 448 阅读

相关 Delphi小巧的Windows NT服务程序源码

program DemoSrv; // Windows NT Service Demo Program for Delphi 3 // By Tom Lee ,

Love The Way You Lie/ 2021年11月22日 02:50/ 0 赞/ 362 阅读

相关 user32.dll的源码

user32.dll的源码 using System; using System.Collections.Generic; using Syste

Bertha 。/ 2021年07月04日 18:39/ 0 赞/ 390 阅读