把程序釘到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調用;