Delphi 怎样用postMessage向一个窗口发送Alt+D组合键

不能简单的Postmessge发送消息！因为组合组合键生成的是一系列消息！

实现方法原理如同楼上所写，代码如下：

hwnd=FindWindow(NULL,窗口标题文本); //获得窗口句柄
if Hwnd <> Null then
begin
SetForegroundWindow(hwnd);//设置窗口为当前窗口
keybd_event(VK_ALT,MapVirtualKey(VK_ALT,0),0,0);
sleep(1000);
keybd_event('D',MapVirtualKey(’D’,0),0,0);
sleep(1000);
keybd_event('D',MapVirtualKey(’D’,0),KEYEVENTF_KEYUP,0);
keybd_event(VK_ALT,MapVirtualKey(VK_ALT,0),KEYEVENTF_KEYUP,0);
end;

代码没经测试，你试试！
wish you luck!

－－－－－－－－－－－－－－－－－－－
在哪个单元定义记不清了！你可能是不没引用这个单元！
VK_alt定义是：$20.你试试用这个代替行不！注：没有编译！

转自"超级猛料2003"
procedure SendKey(const mKey: Word; mShiftState: TShiftState;

mCount: Integer = 1); { 模拟系统按键;mCount指定按键次数 }

const

cExtended: set of Byte = [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT, VK_HOME,

V