Как в приложении запустить горячие клавиши

← →
Раф (2007-07-30 17:00) [0]

То есть я знаю определенный набор клавиш, которые мне нужно нажать для запуска определенной команды, подскажите как это сделать
Мне нужно нажать (Alt, "А", "Г" и два раза #13)

← →
DVM © (2007-07-30 17:02) [1]

В приложении окна есть? Если да, то в момент нажатия окно фокус ввода имеет?

← →
Рафик © (2007-07-30 17:22) [2]

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

← →
DVM © (2007-07-30 17:24) [3]

Программа чужая что ли?

← →
Рафик © (2007-07-30 17:26) [4]

Да

← →
DVM © (2007-07-30 17:30) [5]

вот посмотри по ссылкам http://www.yandex.ru/yandsearch?text=SendKeys+Delphi

← →
Раф (2007-07-31 11:07) [6]

Ничего не происходит, меню не активируется, что не так сделал?

procedure TForm1.Button2Click(Sender: TObject);
Var
s:Hwnd;
begin
StrPCopy(APchar, ""c:\Program Files\1C7\BIN\1cv7.exe" CONFIG /DE:\Temp\1C7\ /NМихаил /P****");
s:=WinExec(APchar,SW_RESTORE);
//s:=FindWindow(nil, PChar("Конфигуратор - Производство 2006"));
SendKey(s,#18);
SendKey(s,"А");
SendKey(s,"Г");

> Раф (31.07.07 11:07) [6]

Ерунду написал, вот и не происходит.

Во-первых, что такое SendKey(). Ты код ее приведи, если нашел где то.
Во-вторых, я подозреваю, что SendKey() первым параметром хочет хэндл окна. А где ты этот хэндл получаешь? Ты единственную строку, которая может вернуть такой хэндл закомментировал.
В-третьих, WinExec() возвращает значение никаким боком к хэндлу окна запускаемого приложения не относящееся.

Как в приложении запустить горячие клавиши Найти похожие ветки