易语言汇编加载DLL源码

系统结构:MyAsm,线程,添加菜单,ProcWinMain,编译,读编译配置,写编译配置,赋值给组建,赋值给结构,GetPorcessid,GetFileName,取路径扩展名,取路径文件名,取路径,GetWindowsHandle,EnumWindowsProc,对话框_浏览文件夹,StrToInt64ExA,GlobalAlloc,GlobalFree,WideCharToMultiByte,MessageBox,EnumWindows,GetWindowThreadProcessId,GetAncestor,GetWindowText,PathFindExtension,SetWindowLong,GetMenu,CreatePopupMenu,AppendMenu,DefWindowProc,CreateMenu,SetMenu,PostQuitMessage,CallWindowProc,PathFindFileName,PathRemoveFileSpec,删除扩展名,SHGetFolderLocation,SHBrowseForFolderA,SHGetPathFromIDListA,

======Main            |  |            |  |------ _启动子程序            |  |            |  |------ _临时子程序            |  |            |  |------ MyAsm            |  |            |  |------ 线程            |  |            |  |------ 添加菜单            |  |            |  |------ ProcWinMain            |  |            |  |------ 编译            |  |            |  | ======编译设置            |  |            |  |------ 读编译配置            |  |            |  |------ 写编译配置            |  |            |  |------ 赋值给组建            |  |            |  |------ 赋值给结构            |  |            |  |------ _按钮_修改_被单击            |  |            |  |------ _按钮_open_被单击            |  |            |  |------ _窗口_设置_创建完毕            |  |            |  |------ _按钮_linkopen_被单击            |  |            |  | ======Proc            |  |            |  |------ GetPorcessid            |  |            |  |------ GetFileName            |  |            |  |------ 取路径扩展名            |  |            |  |------ 取路径文件名            |  |            |  |------ 取路径            |  |            |  |------ _16To10            |  |            |  |------ GetWindowsHandle            |  |            |  |------ EnumWindowsProc            |  |            |  |------ _取真实地址            |  |            |  |------ 对话框_浏览文件夹            |  |            |  | ======调用的Dll            |  |            |  |---[dll]------   StrToInt64ExA            |  |            |  |---[dll]------   GlobalAlloc            |  |            |  |---[dll]------   GlobalFree            |  |            |  |---[dll]------   WideCharToMultiByte            |  |            |  |---[dll]------   MessageBox            |  |            |  |---[dll]------   EnumWindows            |  |            |  |---[dll]------   GetWindowThreadProcessId            |  |            |  |---[dll]------   GetAncestor            |  |            |  |---[dll]------   GetWindowText            |  |            |  |---[dll]------   PathFindExtension            |  |            |  |---[dll]------   SetWindowLong            |  |            |  |---[dll]------   GetMenu            |  |            |  |---[dll]------   CreatePopupMenu            |  |            |  |---[dll]------   AppendMenu            |  |            |  |---[dll]------   DefWindowProc            |  |            |  |---[dll]------   CreateMenu            |  |            |  |---[dll]------   SetMenu            |  |            |  |---[dll]------   PostQuitMessage            |  |            |  |---[dll]------   CallWindowProc            |  |            |  |---[dll]------   PathFindFileName            |  |            |  |---[dll]------   PathRemoveFileSpec            |  |            |  |---[dll]------   删除扩展名            |  |            |  |---[dll]------   SHGetFolderLocation            |  |            |  |---[dll]------   SHBrowseForFolderA            |  |            |  |---[dll]------   SHGetPathFromIDListA

调用的DLL命令:

.DLL命令 StrToInt64ExA, 整数型, "shlwapi.dll", "StrToInt64ExA", , 64-bit integer     .参数 pszString, 文本型     .参数 dwFlags, 整数型, , 1为16进制，0为10进制     .参数 piRet, 长整数型, 传址

.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc"     .参数 wFlags, 整数型     .参数 dwBytes, 整数型

.DLL命令 GlobalFree, 整数型, "kernel32", "GlobalFree"     .参数 hMem, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte", , 将通配符映像为多字节     .参数 CodePage, 整数型     .参数 dwFlags, 整数型     .参数 lpWideCharStr, 字节集     .参数 cchWideChar, 整数型     .参数 lpMultiByteStr, 文本型     .参数 cchMultiByte, 整数型     .参数 lpDefaultChar, 文本型     .参数 lpUsedDefaultChar, 整数型

.DLL命令 MessageBox, , , "MessageBoxW"     .参数 a, 整数型     .参数 b, 整数型     .参数 c, 整数型     .参数 d, 整数型

.DLL命令 EnumWindows, 整数型, "user32", "EnumWindows"     .参数 lpEnumFunc, 子程序指针     .参数 lParam, 整数型, 传址

.DLL命令 GetWindowThreadProcessId, 整数型, "user32", "GetWindowThreadProcessId"     .参数 hwnd, 整数型     .参数 lpdwProcessId, 整数型, 传址

.DLL命令 GetAncestor, 整数型, "user32", "GetAncestor"     .参数 hwnd, 整数型     .参数 gaFlags, 整数型

.DLL命令 GetWindowText, 整数型, "user32", "GetWindowTextA"     .参数 hwnd, 整数型     .参数 buffer, 文本型     .参数 length, 整数型

.DLL命令 PathFindExtension, 整数型, "shlwapi.dll", "PathFindExtensionA", , 无扩展名返回空     .参数 pszPath, 文本型

.DLL命令 SetWindowLong, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值     .参数 hwnd, 整数型, , ，欲为其取得信息的窗口的句柄     .参数 nIndex, 整数型, , ，请参考GetWindowLong函数的nIndex参数的说明     .参数 dwNewLong, 整数型, , ，由nIndex指定的窗口信息的新值

.DLL命令 GetMenu, 整数型, "user32", "GetMenu", , 该函数取得分配给指定窗口的菜单的句柄。   返回值是菜单的句柄。如果给定的窗口没有菜单，则返回NULL。如果窗口是一个子窗口，返回值无定义     .参数 hwnd, 整数型, , 其菜单句柄被取得的窗口的句柄

.DLL命令 CreatePopupMenu, 整数型, "user32", "CreatePopupMenu"

.DLL命令 AppendMenu, 整数型, "user32", "AppendMenuA"     .参数 hMenu, 整数型     .参数 wFlags, 整数型     .参数 wIDNewItem, 整数型     .参数 lpNewItem, 文本型

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA", , 调用缺省窗口过程　     .参数 hwnd, 整数型     .参数 wMsg, 整数型     .参数 wParam, 整数型     .参数 lParam, 整数型

.DLL命令 CreateMenu, 整数型, "user32", "CreateMenu"

.DLL命令 SetMenu, 整数型, "user32", "SetMenu"     .参数 hwnd, 整数型     .参数 hMenu, 整数型

.DLL命令 PostQuitMessage, , "user32", "PostQuitMessage", , 通知WINDOWS线索将中断　     .参数 nExitCode, 整数型

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"     .参数 lpPrevWndFunc, 子程序指针     .参数 hwnd     .参数 Msg     .参数 wParam     .参数 lParam

.DLL命令 PathFindFileName, 整数型, "shlwapi.dll", "PathFindFileNameA", , 成功返回路径文本指针地址     .参数 pszPath, 文本型

.DLL命令 PathRemoveFileSpec, 整数型, "shlwapi.dll", "PathRemoveFileSpecA", , 如："c:\windows\boot.ini"返回"c:\windows"     .参数 pszPath, 文本型

.DLL命令 删除扩展名, , "shlwapi.dll", "PathRemoveExtensionA"     .参数 pszPath, 文本型

.DLL命令 SHGetFolderLocation, , "shell32.dll", "SHGetFolderLocation", , $(b)     .参数 窗口句柄, 整数型, , hwnd     .参数 文件夹标识符, 整数型, , nFolder     .参数 标志句柄, 整数型, , hToken     .参数 标志, 整数型, , dwFlags     .参数 项目标识符列表结构, ItemIdList, , ppidl

.DLL命令 SHBrowseForFolderA, 整数型, "shell32.dll", "SHBrowseForFolderA", , $(b)     .参数 浏览文件夹结构, Browseinfo

.DLL命令 SHGetPathFromIDListA, 整数型, "shell32.dll", "SHGetPathFromIDListA", , $(b)     .参数 结构指针, 整数型, , pIdl     .参数 路径, 文本型, 传址, pszPath