Wm_syscommand

[turboPASCAL]

Zitat:

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  h, b: HWnd;
begin
  h := [b][color=#ff0000]handle[/color][/b]; [color=darkblue]// Wo kommt das her, was hat Handle für einen Wert ?[/color]
  while h > 0 do
[b][...][/b]
end;

Delphi-Quellcode:

procedure ...
var
  DeskH, PrgWh, wnd: HWnd;
begin
  DeskH := GetDesktopWindow;
  PrgWh := FindWindow(nil, 'Progman');

  wnd := getnextwindow(DeskH, GW_HWNDNEXT);
  
  while wnd > 0 do
  begin
    if (wnd <> DeskH) and (wnd <> PrgWin) then
      if isWindowVisible(wnd) then
        postmessage(wnd, WM_SYSCOMMAND, SC_ClOSE, 0);
    wnd := getnextwindow(wnd, GW_HWNDNEXT);
  end;
end;

Von der Überlegung her würde ich es so (oder so ähnlich) machen, ist aber jetzt getestet...