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

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

Disable Start menu on descktop doubleclik [D3, D4, D5, D6, Win95/98]


Serge ©   (2004-01-16 10:32:00) 

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


Serge   (2004-01-16 18:10:00) [1]

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

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


Serge   (2004-01-16 11:39:00) [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   (2004-01-16 11:22:00) [3]

Скрой окно Progman


Наверх

Титульная страница Поиск, карта сайта Написать письмо