|
发表于 2012-3-26 16:05:24
|
显示全部楼层
吉林省白山市
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 hsnapshot, 整数型
.局部变量 uprocess, PROCESSENTRY32
.局部变量 r, 整数型
.局部变量 bwnd, 整数型
.局部变量 deskhwnd, 整数型
.局部变量 ProcessID, 整数型
.局部变量 TrayI, NOTIFYICONDATA
.局部变量 i, 整数型
按钮1.禁止 = 真
标签2.标题 = “正在操作,请稍等....”
hsnapshot = CreateToolhelp32Snapshot (15, 0)
uprocess.dwsize = 296
r = Process32First (hsnapshot, uprocess)
.判断循环首 (r ≠ 0)
.如果真 (寻找文本 (到文本 (uprocess.szexefile), 编辑框1.内容, , 真) ≠ -1)
dprocessid = uprocess.th32processid
.如果真结束
r = Process32Next (hsnapshot, uprocess)
.判断循环尾 ()
CloseHandle (hsnapshot)
deskhwnd = GetDesktopWindow ()
bwnd = FindWindowEx (deskhwnd, 0, 0, 0)
.判断循环首 (bwnd ≠ 0)
GetWindowThreadProcessId (bwnd, ProcessID)
.如果真 (dprocessid = ProcessID)
TrayI.hwnd = bwnd
.计次循环首 (100, i) ' 如果觉得等待时间太长,可以将循环值减小,直至1。反之如果不能隐藏图标,请将循环值加大,直至32767
TrayI.uID = i - 1
Shell_NotifyIcon (2, TrayI)
处理事件 ()
.计次循环尾 ()
.如果真结束
bwnd = FindWindowEx (deskhwnd, bwnd, 0, 0)
.判断循环尾 ()
|
|