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

[mbshareat]

این کد کار نکرد.چند سایت رو هم نگاه کردم نفهمیدم چه کار کنم.لطفا راهنمایی کنید
(نمی خوام از شبیه سازی فشار کلید مثل 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;