![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HotKey in CONSOLE
Jay1982 © (2005-02-02 10:15:00)Могу назначить хоткей на консольное приложение, а как его теперь обрабатывать? DefWindowProc что-то не рабоает.
И ещё есть-ли аналог паскалевской ClsScr?
Jay1982 (2005-02-02 14:12:00) [1]palva © (02.02.05 13:34) [3]
Приложение как раз имеет главную форму, а найти её можно так: GetForegroundWindow, при активации приложения. И все WM_* события для него акутуальны.
Можно конечно просто проверять ввод, ну а если приложение не активно, то что делать?
Тут надо всё-таки как-то обрабатывать WM_HOTKEY :(
Ещё предложения
palva (2005-02-02 13:34:00) [2]По поводу обработки hotkey.
Я понимаю так, что в консольном приложении нет главного окна и нет цикла обработки сообщений, так что надо делать всё вручную, так, как это когда-то программировалось под дос. Получайте ввод с клавиатуры только через написанную вами функцию, где проверяйте код горячей клавиши. Стандартными функциями ввода типа Read тогда уже пользоваться нельзя.
Jay1982 (2005-02-02 11:49:00) [3]Да забыл, вот ещё:
c_handle := GetStdHandle(STD_OUTPUT_HANDLE);
Jay1982 (2005-02-02 11:33:00) [4]Второй вопрос решён, если кому надо, держите
procedure CLS;
var
sbi: TConsoleScreenBufferInfo;
num, num_res: LongWord;
cpos: _COORD;
begin
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi);
cpos.X := 0;
cpos.Y := 0;
num := sbi.dwSize.X * sbi.dwSize.Y;
FillConsoleOutputCharacter(c_handle, ' ', num, cpos, num_res);
SetConsoleCursorPosition(c_handle, cpos)
end;
Первый всё ещё остается открытым :(