, ramen, "geheimen" van het Oude Testament, hoe te ramen, druk op de knop A "start" uit je laat TForm1.PressStart (Sender:.,,,,,, TObject), var, hTaskBar, hButton: worden; hDCScreen:,,,, ScreenHeight HDC;: dword;,,, //find beginnen. 'start' - knop, en hDCScreen: = GetDC (0); ScreenHeight =GetDeviceCaps (hDCScreen:,,,,, VERTRES); ReleaseDC (0, hDCScreen);,, hTaskBar: = FindWindow ('Shell_TrayWnd', nul);,, hButton: = GetWindow (hTaskBar, GW_CHILD);,,, //press "" knop, en sendmessage (hButton, WM_LBUTTONDOWN, MK_LBUTTON, LOWORD (5) + (,, HIWORD ScreenHeight-20);,,, //hide 'start' - knop, en showwindow (hButton, SW_HIDE);,, slaap (2000);,, //show 'start' - knop, en showwindow (hButton, SW_NORMAL);,,,,,,, hoe te verbergen en de show Taskbar:, ramen, procedure TForm1.HideTaskBar (Sender: TObject), var;,,,,, ik H: specifieke; h = FindWindow:,, ('Shell_TrayWnd', nul); showwindow (H -,,,,,, SW_HIDE); slaap (2000 showwindow (H);,,,,, aan het einde van SW_SHOW);;,,, hoe te doen, een aanvraag de knop van de ramen, de procedure Taskbar:, TForm1.HideButton (Sender: TObject);,,, ", showwindow (Application.Handle, SW_HIDE);,,,,, aan Het einde van de procedure; TForm1.ShowButton (Sender: TObject); en ik showwindow (Application.Handle,,,,,, aan het einde van SW_SHOW);;,,, hetzelfde voorbeeld, maar met behulp van Windows API:,,, var, m_hWnd worden, hMain::;,,,, TForm1.CreateWindow worden; de procedure (Sender: TObject);,,, m_hWnd beginnen, =CreateWindowEx (0, is:Ws_popup ingezet ",",,,, 0016001200, 0, 0, 0, geen);,, diameter: = createwindowex (0, statische, "het grote raam",,, ws_popup + ws_visible, 4050200300, m_hwnd, 0, 0, geen);,,,,, de procedures aan de hand van een gebeurtenis aan het einde van hidewindow (afzender:;. TObject);,,,, //verborgen knop, showwindow (diameter, sw_hide);,,,,, het einde van de procedure; een incident. Showwindow (afzender: TObject);,,,, //- display, waaruit blijkt Dat het raam (diameter, sw_show); aan het einde van,,,,,,