1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #include <shellapi.hpp> 6 #pragma hdrstop 7 8 #include "Unit1.h" 9 //--------------------------------------------------------------------------- 10 #pragma package(smart_init) 11 #pragma resource "*.dfm" 12 TForm1 *Form1; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 //--------------------------------------------------------------------------- 19 20 void __fastcall TForm1::Button1Click(TObject *Sender) 21 { 22 TAppBarData AB; 23 String sPos; 24 long int i; 25 AB.cbSize = sizeof(AB); 26 SHAppBarMessage(ABM_GETTASKBARPOS, &AB); 27 i= AB.uEdge; 28 if (i==0){ 29 sPos="Left"; 30 } 31 else if (i==1){ 32 sPos="Top"; 33 } 34 else if (i==2){ 35 sPos="Right"; 36 } 37 else if(i==3){ 38 sPos="Bottom"; 39 } 40 41 ShowMessage("Taskbar is at the "+sPos+" Position."); 42 43 } 44 //---------------------------------------------------------------------------