Как спрятать кнопку пуск

← →
Lamer86 (2002-07-19 10:48) [0]

Как можно спрятать кнопку пуск (если не трудно, то можно пример кода)

← →
Eugene Lachinov (2002-07-19 11:19) [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;

Как спрятать кнопку пуск Найти похожие ветки