大家帮帮忙！

Question

我有五个层叠窗体，只知最底层的窗体的句柄，但我要释放前四个窗体，不释放第五个，请给个提示，高分相送！！！！！！！！！！！！

Answer 1

用FindWindow获得前面四个的句柄，然后释放可不可以，你试试

Answer 2

var
  myh:HWND;
begin
  myh:=GetNextWindow(handle,GW_HWNDNEXT);
  while myh<>GetNextWindow(handle,GW_OWNER) do
  begin
    DestroyWindow(myh);
    myh:=GetNextWindow(handle,GW_HWNDNEXT);
  end;
end;

Answer 3

var
  myh:HWND;
begin
  myh:=GetNextWindow(handle,GW_HWNDNEXT);
  while myh<>GetNextWindow(handle,GW_OWNER) do
  begin
    DestroyWindow(myh);
    myh:=GetNextWindow(handle,GW_HWNDNEXT);
  end;
end;

Answer 4

var
  myh:HWND;
begin
  myh:=GetNextWindow(handle,GW_HWNDNEXT);
  while myh<>GetNextWindow(handle,GW_OWNER) do
  begin
    DestroyWindow(myh);
    myh:=GetNextWindow(handle,GW_HWNDNEXT);
  end;
end;