Прячем и вырубаем кнопку пуск.

  1. {$R *.res}
  2.  
  3. uses
  4.   Windows;
  5.  
  6. var
  7.   startBtnBmp,startBtnWnd:hWnd;
  8.  
  9. begin
  10.   startBtnWnd:=findWindow('Shel_TrayWnd',nil); //записываем в переменную панель задач
  11.   startBtnBmp:=findWindowEx(startBtnWnd,0,'Button',nil); //ищем пуск
  12.   showWindow(startBtnBmp,SW_HIDE); //скрываем пуск
  13.   enableWindow(startBtnBmp,false); //отключаем пуск
  14.   repeat
  15.   until false
  16. end.
Как перейти с windows7 на windows8?

Реклама

Мы в соцсетях

tw tg yt gt