delphi 获取指定文件的图标
前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
lbl1: TLabel;
btn1: TButton;
dlgOpen1: TOpenDialog;
imgPic: TImage;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Mem : TMemoryStream;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
FileInfo : TSHFileInfo;
hc: TIcon;
Bitmap : TBitmap;
begin
Mem := Tmemorystream.Create;
if dlgOpen1.Execute then
begin
FileInfo.iIcon := 0;
SHGetFileInfo(pchar(dlgOpen1.filename), 0, FileInfo, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_LARGEICON);
imgPic.Picture.Icon.Handle := FileInfo.hIcon;
hc := TIcon.Create;
Bitmap := TBitmap.Create;
hc.Handle := FileInfo.hIcon;
Bitmap.width := hc.width;
Bitmap.height := hc.height;
Bitmap.Canvas.Draw(0, 0, hc);
Bitmap.SaveToStream(Mem);
Mem.SaveToFile(ExtractFilePath(paramstr(0)) + 'qinxh.bmp');
imgPic.Picture.LoadfromFile(ExtractFilePath(paramstr(0)) + 'qinxh.bmp');
hc.Free;
Bitmap.Free;
end;
end;
end.
相关文档：
============================================================================
Windows95是Microsoft公司的第一个真正的多任务操作系统。在每一时刻可以有多个进程同时工作，而每一个进程又包含有多个线程。但只有一个处理器的计算机不可能真正地“同时”执行多个线程，而是操作系统把时间分成若干个时间片， ......
刚开始很不习惯c#的风格，哎，先入为主啊，delphi习惯了，{}代替begin/end太扎眼。
属性方法的宣告和代码在一起，没有像delphi分interface/implementation，感觉太乱，都不知道一个class到底有几个方法。
每个属性和方法前面都要单独写private/protected/public，老天，c#是delphi之父设计的揶，怎么不学delphi写一个就行 ......
一、类与对象
1、 类(Class)是用户定义的数据类型
2、 对象（Object）是类(Class)的一个实例，或由类定义数据类型的一个变量;
3、 类有一种状态（内部数据），操作（行为或方法），属性;
4、 对象是一个实体，程序运行时会为其内部表现分配一些内存;
5、 类与对象之间的关系和变量与类� ......
TCP连接建立与关闭
相信各位读者现在对於 Winsock 的定义、系统环境，以及一些 Winsock Stack及 Winsock 应用程式，都有基本的认识了。接下来笔者希望能分几期为各位读者介绍一下简单的 Winsock 网路应用程式设计。我们将以 Winsock 1.1 规格所定义的 46 个应用程式介面（API）为基础，逐步来建立一对 TCP socket 主从架 ......
1、控制POS机的客户显示屏
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容
var
PrnFile ......
