把程序钉到Win7任务栏易语言源码

系统结构:CrnPinAppToWin7Taskbar,API_ShellExecute,API_LoadLibraryA,API_LoadString,API_FreeLibrary,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ CrnPinAppToWin7Taskbar
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_ShellExecute
           |  |
           |  |---[dll]------   API_LoadLibraryA
           |  |
           |  |---[dll]------   API_LoadString
           |  |
           |  |---[dll]------   API_FreeLibrary

调用的DLL命令:

.DLL命令 API_ShellExecute, 整数型, "shell32.dll", "ShellExecuteA", , ;    查找与指定文件关联在一起的程序的文件名  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框
    .参数 lpOperation, 文本型, , 指定字串“open”来打开lpFlie文档，或指定“Print”来打印它
    .参数 lpFile, 文本型, , 想用关联程序打印或打开一个程序名或文件名
    .参数 lpParameters, 整数型, , 如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数
    .参数 lpDirectory, 整数型, , 想使用的完整路径
    .参数 nShowCmd, 整数型, , 定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数;

.DLL命令 API_LoadLibraryA, 整数型, "kernel32", "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间。一旦载入，即可访问库内保存的资源。返回值Long，如执行成功，则返回库模块的句柄；零表示失败。会设置GetLastErrora。
    .参数 lpLibFileName, 文本型, , String，指定要载入的动态链接库的名称。采用与CreateProcess函数的lpCommandLine参数指定的同样的搜索顺序

.DLL命令 API_LoadString, 整数型, "user32", "LoadStringA", , 装入字符串资源
    .参数 hInstance, 整数型
    .参数 wID, 整数型
    .参数 lpBuffer, 文本型
    .参数 nBufferMax, 整数型

.DLL命令 API_FreeLibrary, 整数型, "kernel32", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary ;    API函数装载的  非零表示成功，零表示失败。会设置GetLastError
    .参数 库句柄, 整数型, , 要释放的一个库句柄在VB里使用只能用这个函数释放那些由应用程序明确装载的DLL。对LoadLibrary的每一次调用都应该有一个对应的FreeLibrary调用;