1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

{ entweder
   H := GetActiveWindow; 
   oder
   H := WindowFromPoint(TPoint); [etCursorPos]
   oder / und
   H := ChildWindowFromPoint(WindowFromPoint(TPoint) , TPoint);
);}
Function GetSelText(H : THandle) : PCHAR; // API-Solution
 var P : array [0..1024] of char;
      n : integer;
 begin
  n := SendMessage(H,WM_GETTEXTLENGTH,0,0) + 1; // + 1 because #0
  if n > 1 then
   if SendMessage(H,WM_GETTEXT,n,Integer(@P)) > 0 then result := P else result := #0;
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:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

 Type

     TCOPYSEL  = array [0..1] of TINPUT;

 var
     KbInf_STRG, KbInf_C    : TKeybdInput;

     FirstInput,SecondInput : TInput;

     SizeofInputStruct       : cardinal;

     P                      : TCOPYSEL;

     PCOUNT                 : Integer;

begin


  with KbInf_STRG do
   begin
    wVk         := VK_SHIFT;
    wScan       := 0; // not used
    dwFlags     := KEYEVENTF_KEYUP;
    time        := round(Now);
    dwExtraInfo := GetMessageExtraInfo;
  end;

  with KbInf_C do
   begin
    wVk         := 43; // = C
    wScan       := 0; // not used
    dwFlags     := KEYEVENTF_KEYUP;
    time        := round(Now);
    dwExtraInfo := GetMessageExtraInfo;
  end;

  with FirstInput do
   begin
    Itype := 1;
    ki    := KbInf_STRG;
  end;

  with SecondInput do
   begin
    Itype := 1;
    ki    := KbInf_C;
  end;

  SizeofInputStruct := SizeOf(TInput);

  P[0]:=FirstInput;
  P[1]:=SecondInput;

  PCOUNT := High(P) + 1; // nicht bei Null beginned -> +1

  SendInput(PCOUNT,P[0],SizeofInputStruct);
  // nur P (= Referenz) funktioniert nicht, es muss expliziet die Addresse
  // des ersten Elementest übergeben werdern
  // PCount = Elementanzahl + SizeOfInputStruct 
  // -> intern wohl sowas inc(P[0],SizeOfInputStruct) so würde P[0]
  // eigentlich auf P[1] zeigen (Pointer um den Speicherbedarf erhöht)