Aktif olan Programların Hepsini Minimize Etme

[Salih]

Kod: Tümünü seç

uses ShlObj,comobj;

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

Bu procedure bütün programları minimize ediyor.
Peki hepsini minimize ettikten sonra bir tek kendi programımın ana formunu ekranın ortasında nasıl gösteririm ? Birşeyler denedim ama olmadı :
form1.windowstate := wsNormal;
form1.position := poScreenCenter;
form1.formstyle := fsNormal;

[mege]

ShowWindow

[Salih]

Tüh, rezil olduk aleme