＋设为首页 ＋添加到收藏夹
如何获取我程序中所有打开的窗体的句柄？我想实现注销功能，一旦点击主窗体的
的注销按钮的话，马上关闭当前打开的所有的子窗体，请问如何实现，有何API可以调用，用Delphi来实现。
var
i : integer;
begin
for i := 0 to Screen.FormCount - 1 do
begin
if Assigned(Screen.Forms[i]) then
begin
if IsWindowVisible(Screen.Forms[i].Handle) then
打开的，
end;
end;
end;
var
i : integer;
begin
for i := 0 to Screen.FormCount - 1 do
begin
if Assigned(Screen.Forms[i]) then
begin
if IsWindowVisible(Screen.Forms[i].Handle) then
SendMessage(Screen.Forms[i].Handle, WM_CLOSE, 0, 0);
end;
end;
end;
