Текущий архив: 2002.09.30;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.011 c