Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 02.02.2020, 15:10   #1
RKN
Новичок
Джуниор
 
Регистрация: 02.02.2020
Сообщений: 2
По умолчанию Переключатель окон на delphi

Подскажите пожалуйста как быть. Мне нужно по нажатию на кнопку клавиатуры, допустим END, переключаться то на одно приложение то на другое. Оба приложения уже запущены. Я написал код, но проблема в том, что он исполняется только тогда, когда моя форма активна.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var wnd:hWnd;
buff : array[0.. 127] of Char;
begin

wnd:=GetForegroundWindow;
GetWindowText (Wnd, buff, sizeof (buff ));

if not(getasynckeystate(35)=0) then //если нажата кнопка end
begin
if buff[0] = 'M' then //если текущее окно Microsoft Excel
if not(FindWindow(nil, 'GOM Player')=0) then // и есть открытое окно GOM Player
BringWindowToTop(FindWindow(nil, 'GOM Player')); //переключаюсь на GOM Player
if buff[0] = 'G' then //если текущее окно GOM Player
if not(FindWindow(nil, 'Microsoft Excel')=0) then // и есть открытое окно Microsoft Excel
BringWindowToTop(FindWindow(nil, 'Microsoft Excel')); //переключаюсь на Microsoft Excel
end;
end;
Я пробовал скрыть приложение вот так:
Код:
ShowWindow(Form1.Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
но это не привело к желаемому результату, так как мое приложение не реагировало на нажатие кнопки END
RKN вне форума Ответить с цитированием
Старый 02.02.2020, 18:05   #2
Desc
Форумчанин
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 600
По умолчанию

Стандартное решение ОС-и (Win+Tab) не подходит, не?
Desc вне форума Ответить с цитированием
Старый 02.02.2020, 19:04   #3
RKN
Новичок
Джуниор
 
Регистрация: 02.02.2020
Сообщений: 2
По умолчанию

Я раскопал. Мне нужно RegisterHotKey. Всем спасибо.
RKN вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
переключатель tina22222 JavaScript, Ajax 1 22.07.2017 01:43
переключатель ts-alan JavaScript, Ajax 3 27.11.2013 23:44
Переключатель PostGet Общие вопросы Delphi 7 28.10.2012 08:56
Переключатель Tatguide Microsoft Office Excel 1 17.03.2011 20:07
Переключатель(delphi) Brabus Помощь студентам 18 09.03.2010 22:30


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS