| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как спрятать/показать кнопку пуск? [D4, D5, Win2k]

fGuS ©   (2002-07-13 16:40:00) 

Спасибо!

---

SerVS   (2002-07-14 00:24:00) [1]

2Anatoly Podgoretsky ©
Ага ;)
2fGuS
А еще это вопрос есть на всех сайтах...
Но если тебе нужно отключить меню, то это не поможет, оно все равно будет вылазить по Ctrl+Esc ili Win

---

Anatoly Podgoretsky   (2002-07-13 17:11:00) [2]

Опять раздвоение личности

---

fGuS   (2002-07-13 16:40:00) [3]

procedure Startbutton(visi:boolean);
Var Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
Begin
Tray := FindWindow("Shell_TrayWnd", NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0 do Begin
If GetClassName(Child, C, SizeOf(C)) > 0 Then Begin
S := StrPAS(C);
If UpperCase(S) = "BUTTON" then begin
If Visi then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
startButton(False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
startButton(True);
end;

---

MARcoDEN   (2002-07-13 16:40:00) [4]

procedure Startbutton(visi:boolean);
Var Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
Begin
Tray := FindWindow("Shell_TrayWnd", NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0 do Begin
If GetClassName(Child, C, SizeOf(C)) > 0 Then Begin
S := StrPAS(C);
If UpperCase(S) = "BUTTON" then begin
If Visi then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
startButton(False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
startButton(True);
end;

---

Наверх