Új hozzászólás Aktív témák

• #1805 RootRulez félisten RootRulez #1804

  Új Válasz 2010-04-14 07:46:59 #1805

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  RootRulez

  félisten

  válasz RootRulez #1804 üzenetére

  És meg is válaszolnám a kérdésemet:

  uses COMOBJ;

  //Deklarálás
  procedure Shell_MinimizeAll;
  var
  Shell : OleVariant;
  begin
  Shell := CreateOleObject('Shell.Application') ;
  Shell.MinimizeAll;
  end;

  //Használata
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Shell_MinimizeAll;
  end;

Új hozzászólás Aktív témák