sendmessage

[glebast]

Здарова.
Я хочу сделать какое-либо действие в другом окне, послав ему сообщение.
Я делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if FindWindow(nil, 'Delphi 7') <> 0 then
begin
a:=FindWindow(nil, PChar('Delphi 7'));
postmessage(a, wm_keydown, vk_f1, 0);
sleep(10);
sendmessage(a, wm_keyup, vk_f1, 0);
end;
end;

Но справка почему-то не выскакивает.
Подскажите плииз.
Правильно ли я вообще делаю?

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);
begin
if FindWindow(nil, 'Delphi 7') <> 0 then
begin
shomessage('Окно найдено send');
a:=FindWindow(nil, PChar('Delphi 7'));
postmessage(a, wm_keydown, vk_f1, 0);
sleep(10);
sendmessage(a, wm_keyup, vk_f1, 0);
end
else
shomessage('Окно не найдено:(');
end;

Попробуйте этот код..и напишите что он вам выдаст!

[glebast]

Сообщение от Кольша

Попробуйте этот код..и напишите что он вам выдаст!

Окно находит, я уже пробовал.
но справка не открывается все равно

[Somebody]

Spy++ показал, что при реальном нажатии F1 в Delphi WK_KEYDOWN и WM_KEYUP приходят вот этому:
DelphiF1.png