>>511
いや実はそうなんですけど、ひょっとしたら誰かの役に立つかもしれないし・・・
ってことで↓のほうがよいですm(_ _)m

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_ESCAPE,0,0,0);
keybd_event(VK_ESCAPE,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(byte('V'),0,0,0);
keybd_event(byte('V'),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;

いや、もうこれで最後です。カキコするの・・・すいませんでした・・・