1:
2:
3:
4:
5:
6:
7:

var hnd:= HWND;
hnd := findwindow('Microsoft Word');
if hnd <> 0 then
begin
   setforegroundwindow(hnd);
   sendkeys('{1}');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  hnd : HWND;

begin
  hnd := findwindow('Microsoft Word');
  if hnd <> 0 then
  begin
    setforegroundwindow(hnd);
    sendkeys('{1}');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Procedure PostKeyEx32(key: Word; Const shift:
TShiftState; specialkey: Boolean);
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 
Begin
If shiftkeys[i].shift In bShift Then 
keybd_event( shiftkeys[i].vkey,
MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
End; { For } 
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
Begin
If shiftkeys[i].shift In bShift Then
keybd_event( shiftkeys[i].vkey,
MapVirtualKey(shiftkeys[i].vkey, 0),
KEYEVENTF_KEYUP, 0);
End; { For }
End; { PostKeyEx32 }					

1:

PostKeyEx32((ord('S')), [ssShift], FALSE);