怎么判断有工具栏的窗口和没有工具栏的窗口？提供思路也可以。

[xkdh]

怎么让程序判断怎么判断有工具栏的窗口和没有工具栏的窗口？

[smandhgx]

是不是可以先得到窗口句柄然后遍历整个窗口看是否存在toolbar

[crossbow]

遍历整个窗口看有没有TToolBar类

[xkdh]

如果有toolbar但是隐藏了，那怎么办？？？？

[hryyx]

隐藏与否，好像没有关系吧，以下代码测试通过！
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Self.ComponentCount - 1 do
if Self.Components[i] is TToolBar then
begin
ShowMessage('Found TToolBar');
Break;
end;
end;

[xkdh]

如果想判断屏幕上的其他程序呢？请给出代码。

[linzhisong]

其他程序,應該不行吧


studying..........

[xkdh]

没有人知道吗？

[智商无下限]

if GetWindowLong(hwnd,GWL_EXSTYLE)=WS_EX_TOOLWINDOW then
showmessage('有工具栏');