易语言API取执行文件名源码

系统结构:GetModuleHandle,GetModuleFileName,PathFindFileName,MessageBox,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _取执行文件名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   GetModuleFileName
           |  |
           |  |---[dll]------   PathFindFileName
           |  |
           |  |---[dll]------   MessageBox

调用的DLL命令:

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;

.DLL命令 GetModuleFileName, 整数型, "kernel32", "GetModuleFileNameA", , 获取一个已装载模板的完整路径名称  如执行成功，返回复制到lpFileName的实际字符数量；零表示失败。会设置GetLastError
    .参数 hModule, 整数型, , 一个模块的句柄。可以是一个DLL模块，或者是一个应用程序的实例句柄
    .参数 lpFileName, 文本型, , 指定一个字串缓冲区，要在其中容纳文件的用NULL字符中止的路径名，hModule模块就是从这个文件装载进来的
    .参数 nSize, 整数型, , 装载到缓冲区lpFileName的最大字符数量;

.DLL命令 PathFindFileName, 文本型, "shlwapi.dll", "PathFindFileNameA"
    .参数 pszPath, 文本型

.DLL命令 MessageBox, 整数型, "user32", "MessageBoxA", , 建立消息框窗体
    .参数 hwnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 wType, 整数型