Noen "hemmeligheter" av Windows Taskbar Hvordan til å trykke en "Start" -knappen fra programmet: prosedyre TForm1.PressStart (Sender: TObject); Var hTaskBar, h -knappen: HWND; hDCScreen: HDC; ScreenHeight: DWORD; begynne //finne "Start" -knappen hDCScreen: = GetDC (0); ScreenHeight: = GetDeviceCaps (hDCScreen, VERTRES); ReleaseDC (0, hDCScreen); hTaskBar: = FindWindow ( 'Shell_TrayWnd', null); h -knappen: = GetWindow (hTaskBar, GW_CHILD); //Trykk på "Start" -knappen Sendmessage (h -knappen, WM_LBUTTONDOWN, MK_LBUTTON, LoWord (5) + HIWORD (ScreenHeight-20)); //Hide "Start" -knappen Showwindow (h -knappen, SW_HIDE); Sleep (2000); //Show "Start" -knappen Showwindow (h -knappen, SW_NORMAL); end; Hvordan skjule og vise oppgavelinjen i Windows: prosedyre TForm1.HideTaskBar (Sender: TObject); Var H: HWND; begynne H: = FindWindow ( 'Shell_TrayWnd', nil ); Showwindow (H, SW_HIDE); Sleep (2000); Showwindow (H, SW_SHOW); end; Hvordan skjule en søknad knappen fra oppgavelinjen i Windows: prosedyre TForm1.HideButton (Sender: TObject), begynner Showwindow (Application.Handle, SW_HIDE); end; prosedyre TForm1.ShowButton (Sender: TObject); begynne Showwindow (Application.Handle, SW_SHOW); end; Det samme eksempelet, men ved hjelp av Windows API: var m_hWnd: HWND; hMain: HWND; prosedyre TForm1.CreateWindow (Sender: TObject), begynner m_hWnd: = CreateWindowEx (0, 'STAIC', '', WS_POPUP, 0,0,1600,1200, 0, 0, 0, null); hMain: = CreateWindowEx (0, 'statisk', 'hovedvinduet', WS_POPUP + WS_VISIBLE, 40,50,200,300, m_hWnd, 0, 0, null); end; prosedyre TForm1.HideWindow (Sender: TObject); begynne //skjul knappen Showwindow (hMain, SW_HIDE); end; prosedyre TForm1.ShowWindow (Sender: TObject); begynne //showet knappen Showwindow (hMain, SW_SHOW); end;