minimere vinduer

funktionen i xp hvor alle vinduer minimeres hedder:

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

men jeg ved ikke om det er den samme funktion i win2000!

Her er lidt eksempelkode:

uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
    shell: olevariant;
begin
    shell := CreateOleObject('Shell.Application');
    shell.MinimizeAll;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    shell: olevariant;
begin
    shell := CreateOleObject('Shell.Application');
    shell.UndoMinimizeAll;
end;

hvad skal der skrives ved shell.application?

??????
Lav en form. Klask 2 knapper på og sæt en OnClick event på hver, klip og klistre koden ind og prøv. Keep it simple! ;-)

den giver en exception: klassen er ikke registreret!

Hmm. Jeg ser nu at du skriver WinNT. Mener du NT 4.0?
Hvilken Internet Explorer version kører du med?

nt. 4 workstation
ie 6.0

Har du Active Desktop installeret? Jeg er bange for at netop denne funktion, kun er med hvis du har det.

jeg tror ikke den kører med active desktop.

Hvad gør/er shell-kommandoen egentlig?

procedure TForm1.Button1Click(Sender: TObject);
var
  H: hWnd;
begin
  H := Handle;
  while H <> 0 do
    begin
      if not ((H = Handle) or (H = Application.Handle)) then
        if IsWindowVisible(H) then
          PostMessage(H, WM_SYSCOMMAND, SC_MINIMIZE, 0);
      H := GetNextWindow(H, GW_HWNDNEXT);
    end;
end;

//hermandsen

det virker, tak til jer andre også