Пpоцедуpу котоpая убиpает или показывает кнопку "Стаpт" в выне...
Nomadic приводит следующий код:
|
Uses TypInfo; Var hTaskBar, hButton: HWND; begin hTaskBar:= FindWindow('Shell_TrayWnd', nil); hButton:= GetWindow(hTaskBar, GW_CHILD); // Hажать кнопку "Пуск" SendMessage(hButton, WM_LBUTTONDOWN, MK_LBUTTON,LoWord(5)+HiWord(Screen.Height-20)); // Убpать кнопку "Пуск" ShowWindow(hButton, SW_HIDE); // Показать кнопку "Пуск" ShowWindow(hButton, SW_NORMAL); end; |
[001722]
