Советы по Delphi

         

Скрытие кнопки "Пуск"


Используйте модуль proc. Для скрытия стартовой кнопки используйте следующий код:

procedure hideStartbutton(visi:boolean);
VarTray, Child : hWnd;C : Array[0..127] of Char;S : String;BeginTray := FindWindow('Shell_TrayWnd', NIL);Child := GetWindow(Tray, GW_CHILD);While Child <> 0do BeginIf GetClassName(Child, C, SizeOf(C)) > 0Then BeginS := StrPAS(C);If UpperCase(S) = 'BUTTON'then begin// IsWindowVisible(Child)startbutton_handle:=child;If Visithen ShowWindow(Child, 1)else ShowWindow(Child, 0);end;End;Child := GetWindow(Child, GW_HWNDNEXT);End;End;

[000292]



Содержание раздела