Вызвать хоткей в чужом приложении.

[Gypsy]

Здравствуйте, эксперты!
Подскажите, как можно вызвать хоткей в чужом приложении, зная путь к этому приложению вида "c:\1\1.exe".
Заранее спасибо!

[eoln]

Способов много. Ну если знаете какой хоткей, то и заголовок формы наверное известно.
Наверное, самое простое для однооконного приложения так

var
  Handle:THandle;
begin
  Handle := FindWindow(nil,'Калькулятор');
  SetForeGroundWindow(Handle);
  keybd_event(VK_MENU, 0, 0, 0);
  keybd_event(VkKeyScan('п'), 0, 0, 0);
  keybd_event(VkKeyScan('п'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)

[JTG]

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

ctrl+Z:

message: TMessage;
...
message.LParamLo:= MOD_CONTROL;
message.LParamHi:= VK_CONTROL or ord('Z');
PostMessage(wnd, WM_HOTKEY, 0, Msg.LParam);

Как получить дескриптор окна, зная путь к приложению, ищи поиском по форуму, было где-то

[Gypsy]

Спасибо всем!
Но вот дескриптор окна я так и не нашел, как получить. Отрыл функцию определения полного пути к файлу процесса:

uses tlhelp32, psapi;

...

function GetModulePath(PID: DWord): string;
var
  cb: DWORD;
  I: Integer;
  ProcCount: Integer;
  hMod: HMODULE;
  hProcess: THandle;
  PIDArray: array [0..1023] of DWORD;
  ModuleName: array [0..300] of Char;
begin
  FillChar(ModuleName, SizeOf(ModuleName), #0);
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
   ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
   begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
                            False, PIDArray[i]);
   if (hProcess <> 0) then
   begin
     EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
     GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
     if PID = PIDArray[i] then
     Result:= ModuleName;
     CloseHandle(hProcess);
   end;
   end;
end;

Таким способом я нахожу PID процесса, теперь нужно найти HWND главного окна этого процесса и потом уже туда послать хоткей.
Поможите, а?

[Пепел Феникса]

ну нет у процесса главного окна...нет такого параметра.

найдите класс главного окна приложения сами..и потом ищите его.

[Gypsy]

Вернулся к хоткеям, надо добить. Спасибо всем, кто оттветил. С поиском нужного окна я разобрался, теперь почему то не работает сама отправка. Пробую предложенный JTG способ. Создал форму с главным меню, где есть пункт меню с хоткеем CTRL+DEL, пробую вызвать:

procedure TForm5.Button3Click(Sender: TObject);
var smessage: TMessage;
begin
  smessage.LParamLo:= MOD_CONTROL;
  smessage.LParamHi:=VK_CONTROL or VK_DELETE;
  PostMessage(Form5.Handle, WM_HOTKEY, 0, smessage.LParam);
end;

Ничего не происходит. Что не так?

[Gypsy]

Господа, у кого был опыт, подскажите пожайлуста!