.版本 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:\”)