|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.08.2011, 14:01 | #31 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
fate только что попробывал и в блокноте тоже всё работает но что интересно в обычьной папке не работает и в программе для которой я всё делаю
Пепел Феникса врядли она проверяет так как есть программа и она отсылает не активному окну но отсылает несколько раз потом останавливается, в начале темы я это говорил у меня сначало так же всё было пока в логах окна не увидел что параметр кнопки немного другой |
25.08.2011, 14:23 | #32 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
Ну так что посоветуете?
|
25.08.2011, 14:28 | #33 |
Пользователь
Регистрация: 27.07.2011
Сообщений: 71
|
скинь нам свой кусок кода, где ты ищешь окно и посылаешь ему сообщение
Техника несовершенна: компьютеру, чтобы прийти в себя, нужно три пальца, человеку - всего два!
|
25.08.2011, 14:35 | #34 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND; begin wnd := FindWindow(nil, 'Заголовок окна'); if wnd <> 0 then begin PostMessage(wnd, WM_KEYDOWN, VK_F1, 0); PostMessage(wnd, WM_KEYUP, VK_F1, 0); end; end; |
25.08.2011, 14:38 | #35 |
Пользователь
Регистрация: 27.07.2011
Сообщений: 71
|
а у тебя окно так и называется: "Заголовок окна"?
Техника несовершенна: компьютеру, чтобы прийти в себя, нужно три пальца, человеку - всего два!
|
25.08.2011, 14:42 | #36 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
нет заголовок 100% правельныйй попробуй ты у себя скомпелируй и заголовок зделай обычьной папки тоже работать не будет
|
25.08.2011, 14:45 | #37 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
Вот код работает виликолепно
SetForegroundWindow(FindWindow(nil, 'Заголовок')); keybd_event(VK_F1, 0, 0, $3B); sleep(1000); keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, $3B); end; но он работает только на активном окне |
25.08.2011, 14:50 | #38 |
Форумчанин
Регистрация: 14.03.2011
Сообщений: 104
|
Если отсылать сообщение не главному окну, а ListView проводника, то срабатывает. Скорее всего вам нужно посылать сообщение определенному контролу
Последний раз редактировалось Silver_S; 25.08.2011 в 14:55. |
25.08.2011, 14:56 | #39 |
Форумчанин
Регистрация: 09.07.2011
Сообщений: 185
|
чувствую не потяну я этот проект (((
|
25.08.2011, 15:09 | #40 |
Форумчанин
Регистрация: 14.03.2011
Сообщений: 104
|
Чтоб не тратить время попробуйте через Spy++ (или что там у вас) посмотреть хэндл какого-либо элемента окна, и отправить ему сообщение, напрямую указав хэндл в коде
Код:
Последний раз редактировалось Silver_S; 25.08.2011 в 15:53. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Реакция на нажатие клавиши. | Vaigard | Общие вопросы Delphi | 4 | 30.12.2010 18:39 |
Нажатие клавиши... | Basketman | Общие вопросы Delphi | 1 | 11.02.2010 09:35 |
Долгое нажатие клавиши в KeyDown как одно нажатие | marina15056 | Общие вопросы Delphi | 7 | 16.08.2009 00:22 |
Нажатие клавиши (Delphi) | VadEr | Помощь студентам | 3 | 08.06.2009 17:00 |
Нажатие клавиши | format | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 05.05.2008 15:25 |