Скачать: CL | DM;

Disable Start menu on descktop doubleclik   Найти похожие ветки 

← →
Serge ©   (2004-01-16 10:32) [0]

Приветствую всех. Возник вот такой вопрос - я из программы скрываю десктоповские иконки и таскбар иже с ними, после этого если сделать дабл-клик на десктопе то выскакивает StartMenu - а мне он ни к чему. Если кто знает как запретить вывод StartMenu прошу ответить.
Заранее спасибо!

---

← →
DVM ©   (2004-01-16 11:22) [1]

Скрой окно Progman

---

← →
Serge ©   (2004-01-16 11:39) [2]

Вот код:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
 ShowWindow(FindWindow("Progman", "Program Manager"), SW_HIDE);
 If Not (csDesigning In ComponentState) Then
 ShowWindow(FindWindow("Shell_TrayWnd", Nil), SW_HIDE);
{  EnableWindow(FindWindow("Shell_TrayWnd", Nil), False);
 EnableWindow(FindWindowEx(FindWindow("Shell_TrayWnd", nil),
                                                   0,
                                                   "Button",
                                                   nil),
                                                   false);}
End;

Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
 ShowWindow(FindWindow("Progman", "Program Manager"), SW_SHOW);
 ShowWindow(FindWindow("Shell_TrayWnd", Nil), SW_ShowNormal);
{  EnableWindow(FindWindow("Shell_TrayWnd", Nil), True);
 EnableWindow(FindWindowEx(FindWindow("Shell_TrayWnd", nil),
                                                   0,
                                                   "Button",
                                                   nil),
                                                   true);}


То что закоментированно - пробовал но не помогает.

---

← →
Serge ©   (2004-01-16 18:10) [3]

Вижу что никто не удостоил вниманием мой вопросик (кроме DVM ©)- так что придется поступать некультурно - вырубать мышу, потом врубать ее обратно.

Успехов всем.

---

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

Скачать: CL | DM;



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