Aktif olan Programların Hepsini Minimize Etme

[csyasar]

Kod: Tümünü seç

uses ShlObj,comobj;

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