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

Question

怎样用postMessage向一个窗口发送Alt+D组合键
找不到VK_ALT

Answer 1

不能简单的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.你试试用这个代替行不！注：没有编译！

Answer 2

4步

1、发送Alt键按下；
2、发送D键按下；
3、发送D键放开；
4、发送Alt键放开。

Answer 3

转自"超级猛料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,

VK_END, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE];

procedure pKeyboardEvent(mKey, mScanCode: Byte; mFlags: Longint);

var

vKeyboardMsg: TMsg;

begin

keybd_event(mKey, mScanCode, mFlags, 0);

while PeekMessage(vKeyboardMsg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do

begin

TranslateMessage(vKeyboardMsg);

DispatchMessage(vKeyboardMsg);

end;

end; { pKeyboardEvent }

procedure pSendKeyDown(mKey: Word; mGenUpMsg: Boolean);

var

vScanCode: Byte;

vNumState: Boolean;

vKeyBoardState: TKeyboardState;

begin

if (mKey = VK_NUMLOCK) then begin

vNumState := ByteBool(GetKeyState(VK_NUMLOCK) and 1);

GetKeyBoardState(vKeyBoardState);

if vNumState then

vKeyBoardState[VK_NUMLOCK] := (vKeyBoardState[VK_NUMLOCK] and not 1)

else vKeyBoardState[VK_NUMLOCK] := (vKeyBoardState[VK_NUMLOCK] or 1);

SetKeyBoardState(vKeyBoardState);

Exit;

end;

vScanCode := Lo(MapVirtualKey(mKey, 0));

if (mKey in cExtended) then begin

pKeyboardEvent(mKey, vScanCode, KEYEVENTF_EXTENDEDKEY);

if mGenUpMsg then

pKeyboardEvent(mKey, vScanCode,

KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)

end else begin

pKeyboardEvent(mKey, vScanCode, 0);

if mGenUpMsg then pKeyboardEvent(mKey, vScanCode, KEYEVENTF_KEYUP);

end;

end; { pSendKeyDown }

procedure pSendKeyUp(mKey: Word);

var

vScanCode: Byte;

begin

vScanCode := Lo(MapVirtualKey(mKey, 0));

if mKey in cExtended then

pKeyboardEvent(mKey, vScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)

else pKeyboardEvent(mKey, vScanCode, KEYEVENTF_KEYUP);

end; { pSendKeyUp }

var

I: Integer;

begin

for I := 1 to mCount do begin

if ssShift in mShiftState then pSendKeyDown(VK_SHIFT, False);

if ssCtrl in mShiftState then pSendKeyDown(VK_CONTROL, False);

if ssAlt in mShiftState then pSendKeyDown(VK_MENU, False);

pSendKeyDown(mKey, True);

if ssShift in mShiftState then pSendKeyUp(VK_SHIFT);

if ssCtrl in mShiftState then pSendKeyUp(VK_CONTROL);

if ssAlt in mShiftState then pSendKeyUp(VK_MENU);

end;

end; { SendKey }

///////End Source

///////Begin Demo

procedure TForm1.Button1Click(Sender: TObject);

begin

SendKey(VK_F4, [ssAlt]);

end;

///////End Demo

转自"超级猛料2003"
end;