procedure TForm1.Button1Click(Sender: TObject);
var
hCurWindow:HWnd;
WinText:array[0..255] of char;
begin
memo1.Lines.Clear;
hCurWindow:=GetWindow(Handle,GW_HWNDFirst);
while hCurWindow<>0 do
begin
if (GetWindowText(hCurWindow,@WinText,255)>0) and (IsWindowVisible(hcurwindow))
and(StrPas(@WinText)<>'Program Manager')and(StrPas(@WinText)<>self.Caption) then
//if GetWindowText(hCurWindow,@WinText,255)>0 then 此可获得所有窗口標題(可找到系統程序)
Memo1.Lines.Add(StrPas(@WinText));
hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT); //查找下个程序窗口句柄.
end;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-772387/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
循环访问控件的简单例子
请登录后发表评论
登录
全部评论
