Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Доступ к системе   Найти похожие ветки 

 
Rustamus ©   (2004-03-03 20:13) [0]

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


 
Vlad25 ©   (2004-03-03 20:35) [1]

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

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;


 
YuRock ©   (2004-03-04 12:19) [2]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
11-1066640661
ASilver
2003-10-20 13:04
2004.05.02
TCPServer.SendStream()


3-1080867791
kay
2004-04-02 05:03
2004.05.02
Table1, DBGrid1, значения в верхнем и нижнем регистрах.


3-1081348002
Wolferio
2004-04-07 18:26
2004.05.02
Удалённые БД!!!


3-1081383362
big_bugzy
2004-04-08 04:16
2004.05.02
Как в трех уровневом приложении получить идентификатор?


11-1066369188
Ал
2003-10-17 09:39
2004.05.02
Как обработать нажатие F1 на любой форме?