获取程序多种尺寸图标易语言源码

获取程序多种尺寸图标易语言源码

.版本 2

.程序集 窗口程序集1, , , wangzexi

.子程序 _按钮1_被单击

通用对话框1.打开 ()
绘制图标 (通用对话框1.文件名)

.子程序 绘制图标
.参数 filePath, 文本型
.局部变量 hWnd, 整数型
.局部变量 hIcon, 整数型
.局部变量 hDc, 整数型

hWnd ＝ 取窗口句柄 ()
hDc ＝ GetDC (hWnd)

' 256*256
hIcon ＝ GetFileIcon (filePath, #SHIL_JUMBO)
DrawIconEx (hDc, 0, 0, hIcon, 256, 256, 0, 0, #DI_NORMAL)
DestroyIcon (hIcon)

' 48*48
hIcon ＝ GetFileIcon (filePath, #SHIL_EXTRALARGE)
DrawIconEx (hDc, 256, 0, hIcon, 48, 48, 0, 0, #DI_NORMAL)
DestroyIcon (hIcon)

' 32*32
hIcon ＝ GetFileIcon (filePath, #SHIL_LARGE)
DrawIconEx (hDc, 310, 0, hIcon, 32, 32, 0, 0, #DI_NORMAL)
DestroyIcon (hIcon)

' 16*16
hIcon ＝ GetFileIcon (filePath, #SHIL_SMALL)
DrawIconEx (hDc, 345, 0, hIcon, 16, 16, 0, 0, #DI_NORMAL)
DestroyIcon (hIcon)
ReleaseDC (hWnd, hDc)

.子程序 __启动窗口_首次激活

绘制图标 (“c:\”)