主题：请教delphi开发任务管理器的资料
L-追风
[专家分：0] 发布于 2007-08-05 10:33:00
嘿嘿，提问如题~
谁知道哪里有这方面的信息摆脱给我个链接什么的~我在google上搜了半天，一直没找到理想的答案~
回复列表 （共3个回复）
沙发
L-追风 [专家分：0] 发布于 2007-08-05 14:33:00
是不是1我说的不明白呢？？
对不起大家~~重新说一遍，就是说用一张表或其它东西把系统的进程显示出来~~
板凳
wt_yxs [专家分：50] 发布于 2007-08-06 15:13:00
procedure TForm1.Button1Click(Sender: TObject);
var
hCurrentWindow:HWnd;
szText:array[0..254] of char;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);\\得到第一个窗口
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0 then Memo1.Lines.Add(StrPas(@szText));
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);\\得到下一个窗口
end;
end;
3 楼
L-追风 [专家分：0] 发布于 2007-08-15 13:39:00
谢谢wt_yxs，嘿嘿，前几天我回老家了一趟，没能及时说谢谢，不好意思哈…………
我来回复
您所在位置：