Как спрятать кнопку пуск
Lamer86 © (2002-07-19 10:48:00)
Как можно спрятать кнопку пуск (если не трудно, то можно
пример кода)
Eugene Lachinov (2002-07-19 11:19:00) [1]
procedure TForm1.Button5Click(Sender: TObject);
var
ClassName : array[0..255] of char;
Wnd, Child : HWnd;
begin
Wnd := Windows.FindWindow("Shell_TrayWnd", "");
if Wnd <> 0 then begin
Child := GetWindow(Wnd, GW_CHILD);
repeat
GetClassName(Child, ClassName, 255);
if StrPas(ClassName) = "Button" then begin
ShowWindow(Child, SW_HIDE); Break
end else
Child := GetWindow(Wnd, GW_HWNDNEXT);
until Child = 0
end
end;
Наверх 
ЧАТ |
Орешник |
|
