麻烦提问前搜索一下,这个答案我都不知道贴了多少遍了:)
procedure AltA;
begin
keybd_event(VK_Menu, MapVirtualKey(VK_Menu, 0), 0, 0);
keybd_event(ord('A'), MapVirtualKey(ord('A'), 0), 0, 0);
keybd_event(ord('A'), MapVirtualKey(ord('A'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Menu, MapVirtualKey(VK_Menu, 0), KEYEVENTF_KEYUP, 0);
end;