1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #pragma hdrstop 6 7 #include "Unit1.h" 8 //--------------------------------------------------------------------------- 9 #pragma package(smart_init) 10 #pragma resource "*.dfm" 11 TForm1 *Form1; 12 //--------------------------------------------------------------------------- 13 __fastcall TForm1::TForm1(TComponent* Owner) 14 : TForm(Owner) 15 { 16 } 17 //--------------------------------------------------------------------------- 18 bool __fastcall TForm1::IsActiveDeskTopOn(void) 19 { 20 21 HWND Hd ; 22 bool bOn; 23 bOn = true; 24 25 Hd = FindWindow("Progman", NULL); 26 Hd = FindWindowEx( Hd, 0, "SHELLDLL_DefView", NULL); 27 Hd = FindWindowEx( Hd, 0, "Internet Explorer_Server", NULL); 28 if (Hd == 0) 29 bOn = false; 30 31 return bOn; 32 } 33 //--------------------------------------------------------------------------- 34 void __fastcall TForm1::Button1Click(TObject *Sender) 35 { 36 if (IsActiveDeskTopOn()){ 37 ShowMessage("Active Desktop is ON"); 38 } 39 else 40 ShowMessage("Active Desktop is OFF"); 41 42 } 43 //--------------------------------------------------------------------------- 44