TIcon 对象

图标。

属性/方法 说明
Handle 图标句柄,用此改变图标

取得图标示例

1、从窗口取图标(分大小两种)

icon.Handle := GetClassLong(Form.Handle, GCL_HICONSM );
icon.Handle := GetClassLong(Form.Handle, GCL_HICON );
icon.Handle := SendMessage(Form.Handle, WM_GetIcon, ICON_BIG, 0 )
icon.Handle := SendMessage(Form.Handle, WM_GetIcon, ICON_SMALL, 0 )

2、从文件取图标

icon.Handle := extractIcon(handle,'路径',图标号);

注:图标号为 -1 则返回图标个数。