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);}
То что закоментированно - пробовал но не помогает.

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

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

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