چطور Ctrl+Q رو با Sendmessage برای یه برنامه بفرستم؟

این کد کار نکرد.چند سایت رو هم نگاه کردم نفهمیدم چه کار کنم.لطفا راهنمایی کنید
(نمی خوام از شبیه سازی فشار کلید مثل Keybd_Event استفاده کنم):

var

  H : HWND;

begin

  H := FindWindowA(NIL, 'EasyTree');

  if H <> 0 then begin

    SendMessage(H, WM_KEYDOWN, 0,VK_CONTROL);

    SendMessage(H, WM_KEYDOWN, ord('Q'), 0);

    SendMessage(H, WM_KEYUP, ord('Q'), 0);

    SendMessage(H, WM_KEYUP, 0,VK_CONTROL);

  end;

end;