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.
相关文档：
在Delphi中的Record类型中，与之C语言对应的即是结构体类型（struct
），也可能是为了符合C语言或C++程序员的习惯，对于它在Delphi中的应用存在的一些问题进行初步的说明。在Delphi中的记录体类型有两种方式定义
Type
RecTest = record (packed
)
ID :integer; ......
1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)
2.Shift+F8 调试时弹出CPU窗口。
3.Shift+F10 等于鼠标右键（Windows快捷键）。
&n ......
Source Code
http://www.codefans.com/CodeList/Catalog_5_CodeTime_Desc_1.html
http://www.vscodes.com/sitemap.html
http://www.itlove.net/Soft/261/
DelphiX
http://www.micrel.cz/Dx/
http://www.delphi3d.net/index.php
http://www.pascalgamedevelopment.com/
http://www.2ccc.com/article.asp?articleid ......
C#的ToolTip（delphi叫Hint）机制非常怪，不是像delphi的元件一样，每个TControl有一个Hint属性，C#有一个ToolTip元件，当把这个元件从工具箱拉到form上后，选中form上的任何control元件，在属性窗体（Object Inspector）上就会多出一个属性“toolTip1上的ToolTip”，如果多拉几� ......
1、控制POS机的客户显示屏
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容
var
PrnFile ......
