Как послать нажатие клавиши в какое-нибудь окно?

Code:

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);

{©Drkb v.3®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

type TShiftKeyInfo = record

   shift: Byte;

   vkey: Byte;

end;

byteset = set of 0..7;

const shiftkeys: array[1..3] of TShiftKeyInfo = ((shift: Ord(ssCtrl);

   vkey: VK_CONTROL), (shift: Ord(ssShift); vkey: VK_SHIFT), (shift: Ord(ssAlt); vkey: VK_MENU));

var flag: DWORD;

bShift: ByteSet absolute shift;

i: Integer;

begin

for i := 1 to 3 do

   if shiftkeys[i].shift in bShift then

     keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);

if specialkey then

   flag := KEYEVENTF_EXTENDEDKEY

else

   flag := 0;

keybd_event(key, MapvirtualKey(key, 0), flag, 0);

flag := flag or KEYEVENTF_KEYUP;

keybd_event(key, MapvirtualKey(key, 0), flag, 0);

for i := 3 downto 1 do

   if shiftkeys[i].shift in bShift then

     keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0);

end;

Code:

SetForegroundWindow(FindWindow(PChar(WindowClassName), PChar(WindowCaption)));