Wm_syscommand

[marabu]

Das willst du jetzt bestimmt nicht lesen, aber bei mir funktioniert das so - direkt aus dem laufenden Quelltext kopiert:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  h: HWnd;
  buf: array [0..255] of char;
begin
  h := Handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
    begin
      GetWindowText(h, buf, SizeOf(buf));
      if StrPas(@buf) <> 'Program Manager'
        then PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)
        else ShowMessage('not closing program manager');
    end;
    h := GetNextWindow(h, GW_HWNDNEXT);
  end;
end;

marabu