Mega Code Archive

 

Categories / Delphi / System

 

[] Aktif olan programların hepsini minimize etme

uses ShlObj,comobj; procedure Shell_MinimizeAll; var Shell : OleVariant; begin Shell := CreateOleObject('Shell.Application') ; Shell.MinimizeAll; end;