易语言实现将程序钉(固定)在任务栏或开始菜单上

原文转载自易语言论坛
原地址：http://bbs.eyuyan.com/read.php?tid=410450

win7/8可以固定和接触固定，win10未测试，据说只能解除固定，固定的话需要其他操作。
全家桶最喜欢的操作之一~但是顺序还是不能指定，只能添加在最后一个

用到的DLL命令

.版本 2

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

常量

.版本 2

.常量 SW_SHOWNORMAL, "1"

主窗口程序集

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar
' 创建需要的程序快捷方式到上面的路径

.子程序 _按钮_钉_被单击

调试输出 (ShellExecuteA (取窗口句柄 (), “taskbarpin”, “C:\Users\Public\Desktop\腾讯QQ.lnk”, “”, “”, #SW_SHOWNORMAL))
' %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\xxx.lin

.子程序 _按钮_解钉_被单击

调试输出 (ShellExecuteA (取窗口句柄 (), “taskbarunpin”, “C:\Users\Public\Desktop\腾讯QQ.lnk”, “”, “”, #SW_SHOWNORMAL))

.子程序 _按钮4_被单击

调试输出 (ShellExecuteA (取窗口句柄 (), “startpin”, “C:\Users\Public\Desktop\腾讯QQ.lnk”, “”, “”, #SW_SHOWNORMAL))

.子程序 _按钮5_被单击

调试输出 (ShellExecuteA (取窗口句柄 (), “startunpin”, “C:\Users\Public\Desktop\腾讯QQ.lnk”, “”, “”, #SW_SHOWNORMAL))

运行效果截图：

运行结果截图：

代码下载：
本地下载

本文转载自易语言论坛，如有侵权，请联系我及时删除。谢谢。