VPF::Клавиатура - Форум программистов

Rommik

Дата 6.7.2006, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 21.11.2005

Репутация: нет
Всего: нет

При использовании указанного кода при мгновенном старте программы (при двойном вызове)

Код


                        MainForm.DBGrid.OnKeyDown:=nil;
                        h:=FindWindow(pchar('TMainForm'),pchar('TMainForm.caption'));
                        EnableWindow(h,False);
                        MainForm.Enabled:=false;
                        if not CreateProcess(nil, p1, nil, nil, true, CREATE_NEW_CONSOLE, nil, p2, startinfo,procinfo) then
                                begin
                                        Exit;
                                end;
                        hh:=Procinfo.dwThreadId;
                        repeat
                                case WaitForSingleObject(Procinfo.hProcess, INFINITE) of
                                        WAIT_OBJECT_0: Break;
                                        WAIT_TIMEOUT: Application.ProcessMessages;
                                else
                                        RaiseLastOSError;
                                end;
                        until False;

                        CloseHandle( Procinfo.hProcess );
                        CloseHandle( Procinfo.hThread );
                        Flag_h:=0;
                        MainForm.DBGrid.OnKeyDown:=MainForm.DBGridKeyDown;
                        Application.Restore;

стартует указанная программа, отрабатывает что надо, и после завершения запускается вторично.
Как мне после завершения программы первый раз очистить буфер нажатых клавиш чтобы программа не стартовала вторично. Или есть какой-то другой вариант?

sgentstuff

Дата 6.7.2006, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 13.9.2005

Репутация: нет
Всего: 1

Код


procedure EmptyKeyQueue;
 var
   Msg: TMsg;
 begin
   while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
     PM_REMOVE or PM_NOYIELD) do;
 end;

 procedure EmptyMouseQueue;
 var
   Msg: TMsg;
 begin
   while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
     PM_REMOVE or PM_NOYIELD) do;
 end;

--------------------

Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.

Rommik

Дата 7.7.2006, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 21.11.2005

Репутация: нет
Всего: нет

Хорошо. Стартует один экзампляр программы.
Но еще подскажите, как сделать, чтобы при сдвоенном (несколько кратном )нажатии клавиш активной была форма запущенного приложения, а не моя форма(MainForm )

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »