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

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

Доступ к системе

Rustamus ©   (2004-03-03 20:13:00) 

Как получить доступ к системным компонентам, таким как кнопка "Пуск" и к контекстному меню файла?

---

YuRock   (2004-03-04 12:19:00) [1]

Для контекстного меню спользовать надо, по-моему, IContextMenu Interface

---

Vlad25   (2004-03-03 20:35:00) [2]

Если нужно обратиться к кнопке пуск, то следует обращаться к ней как к окну. Например:

var
StartBtnWnd, StartBtnBmp: hWnd;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
StartBtnBmp:=FindWindowEx(StartBtnWnd, 0,'Button', nil);
end;

Выключить кнопку Пуск:

procedure TForm1.N3Click(Sender: TObject);
begin
EnableWindow(StartBtnWnd, false);
end;

Спрятать кнопку Пуск:

procedure TForm1.N5Click(Sender: TObject);
begin
ShowWindow(StartBtnBmp, SW_HIDE);
end;


---

Наверх