Нажатие клавиши

[ClMlD]

fate только что попробывал и в блокноте тоже всё работает но что интересно в обычьной папке не работает и в программе для которой я всё делаю
Пепел Феникса врядли она проверяет так как есть программа и она отсылает не активному окну но отсылает несколько раз потом останавливается, в начале темы я это говорил у меня сначало так же всё было пока в логах окна не увидел что параметр кнопки немного другой

[ClMlD]

Ну так что посоветуете?

[DenNik2006]

скинь нам свой кусок кода, где ты ищешь окно и посылаешь ему сообщение

[ClMlD]

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;

[DenNik2006]

а у тебя окно так и называется: "Заголовок окна"?

[ClMlD]

нет заголовок 100% правельныйй попробуй ты у себя скомпелируй и заголовок зделай обычьной папки тоже работать не будет

[ClMlD]

Вот код работает виликолепно
SetForegroundWindow(FindWindow(nil, 'Заголовок'));
keybd_event(VK_F1, 0, 0, $3B);
sleep(1000);
keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, $3B);
end;
но он работает только на активном окне

[Silver_S]

Сообщение от ClMlD

в обычьной папке не работает

Если отсылать сообщение не главному окну, а ListView проводника, то срабатывает. Скорее всего вам нужно посылать сообщение определенному контролу

[ClMlD]

чувствую не потяну я этот проект (((

[Silver_S]

Чтоб не тратить время попробуйте через Spy++ (или что там у вас) посмотреть хэндл какого-либо элемента окна, и отправить ему сообщение, напрямую указав хэндл в коде

wnd:=$DFDF54;
PostMessage(wnd, WM_KEYDOWN, VK_F1, 0);
PostMessage(wnd, WM_KEYUP, VK_F1, 0);

Если заработает, тогда уже заниматься реализацией поиска дочерних окон