win32汇编环境,窗口程序中复杂列表框的应用举例

server/2025/1/22 8:20:43/

;运行效果

;双击到根目录后

;win32汇编环境,窗口程序中复杂列表框的应用举例
;在窗口程序中生成复杂列表框，增加子项，删除某项，取得指定项内容，在列表框内展示某文件夹内的文件列表，选定某文件夹后双击打开，返回上层目录再打开等
;直接抄进RadAsm可编译运行。重点部分加备注。
;以下是ASM文件
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
include shlwapi.inc

includelib kernel32.lib
includelib user32.lib
includelib gdi32.lib
includelib shlwapi.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.DATA
ClassName db "SimpleWinClass",0
AppName db "窗口程序的模版",0

szButtonClassName db "button",0 ;按钮类名
szListBoxClassName db "LISTBOX",0 ;列表框类名

szCaption db "提示",0
szCheckTitle db "当前文件夹的文件列表",0
szAddLib01 db "刘备",0
szAddLib02 db "关羽",0
szAddLib03 db "张飞",0
szAddLib04 db "孙策",0
szAddLib05 db "吕布",0

szFormat db '总项数是 %d',0
szFormat01 db '盘符是是 %s',0

szButtonTitle01 db "新增孙策",0
szButtonTitle02 db "删除选中项",0
szButtonTitle03 db "将吕布插入第2项",0
szButtonTitle04 db "得到总项数",0
szButtonTitle05 db "得到所选多项的名称",0

szPath       db   '*.*',0
szPreFolders db   '[..]',0
szCheshi db   'd:\*.*',0
szMessage   db   '选择结果：%s',0
szTitle       db   '您的选择',0
szSelect   db   '您选择了以下的项目：'
szReturn   db   0dh,0ah,0

.DATA?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hID_GROUP HWND ? ;组框控件句柄
hListBox01 HWND ? ;列表框控件句柄变量

hButton01 HWND ? ;按钮控件句柄变量
hButton02 HWND ?
hButton03 HWND ?
hButton04 HWND ?
hButton05 HWND ?

szBuffer db 256 dup (?) ;全局字符数组，用来保存路径用
.const
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
IDC_LBO1 equ 10 ;列表框控件标识符

ButtonID01 equ 11 ;按钮控件标识符
ButtonID02 equ 12
ButtonID03 equ 13
ButtonID04 equ 14
ButtonID05 equ 15
.CODE

start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess, eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND

mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,NULL, ADDR ClassName,ADDR AppName,WS_OVERLAPPEDWINDOW,100,100,260,370, NULL,NULL,hInst, NULL
mov hwnd,eax
invoke ShowWindow, hwnd,CmdShow
invoke UpdateWindow, hwnd

   invoke GetCurrentDirectory,sizeof szBuffer,addr szBuffer ;将当前文件夹路径先保存下来