delphi如何实现“任务管理器”的“切换至”或“前置”功能？

Question

本帖最后由 xdman 于 2011-04-11 11:20:04 编辑

Answer 1

可以用HWND hwnd;
hwnd=FindWindowW(0,L"计算器");
ShowWindow(hwnd,1);
SetForegroundWindow(hwnd);

Answer 2

改成delphi的
var h:HWND;
h=FindWindowW(0,'计算器');
ShowWindow(h,1);
SetForegroundWindow(h);

Answer 3

以上应该是切换直
下面的是前置
var h:HWND;
h=FindWindowW(0,'计算器');
SetWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW);
第5、6个参数是程序的宽、高随便设置

Answer 4

SetWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW);
这个就是永远置顶了，和任务管理器的前置不同任务管理器的前置就是#3的，切换至就是前置后把任务管理器最小化(如果选择了使用时最小化)