program prfxline;

uses
 Windows,
 Messages;

const
 buflen = $FFFF;

procedure InsertPrefixToLines(EditHandle: HWND; const prefx: String);
var
 i, idx : Longint;
 Source : array [0..buflen] of Char;
 Dest: array [0..buflen] of Char;
 Sel, Len : DWord;
 StartSel, EndSel: Word;
begin
 Len := SendMessage( EditHandle,
                     WM_GETTEXT,
                     SizeOf(Source),
                     LParam(PChar(@Source[0])));
 Sel := SendMessage( EditHandle,
                     EM_GETSEL,
                     0,
                     0);
 StartSel := LoWord(Sel);
 EndSel := HiWord(Sel);

 if (StartSel = 0) and (EndSel = -1) then
   EndSel:= Len;
 if StartSel = -1 then
   Exit;

 move(prefx[1], Dest[0], Length(prefx));
 idx := Length(prefx);
 i:= StartSel;

 while i < EndSel do
   begin
     case Source[i] of
       #13:
         begin
           Dest[idx]   := #13;
           Dest[idx+1] := #10;
           move(prefx[1], Dest[idx+2], Length(prefx));
           inc(idx, Length(prefx)+2);
           inc(i);
           if Source[i] = #10 then
             inc(i);
         end;
       else
         begin
           Dest[idx] := Source[i];
           inc(idx);
           inc(i);
         end;
       end;
   end;
 SendMessage(EditHandle, EM_REPLACESEL, WParam(True), LParam(PChar(@Dest[0])));
end;

const
 prefix: String = ' ';
var
 happ: HWND;
 tid : DWord;
 handles: array [0..0] of THandle;
begin
 happ:= GetForegroundWindow;
 tid := GetWindowThreadProcessID(happ, nil);
 if ParamCount > 0 then
   prefix := ParamStr(1);
 MsgWaitForMultipleObjects(0, handles, false, 0, QS_POSTMESSAGE);
 AttachThreadInput(tid, GetCurrentThreadID, true);
 try
   InsertPrefixToLines(GetFocus, prefix);
 finally
   AttachThreadInput(tid, GetCurrentThreadID, false);
 end;
end.

Procedure TRuForm.WMHotkey( Var msg: TWMHotkey );
var happ: HWND;
 Begin
  if msg.HotKey=2 then
   begin

sleep(300);

keybd_event(VK_CONTROL,0,0,0);
keybd_event ($43, 0, 0, 0 ); //Send the C key (43 is "C")
keybd_event ($43, 0, KEYEVENTF_KEYUP, 0);
keybd_event (VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);// 'Left Control Up

sleep(300);
ClipBoard:=TClipBoard.Create;
ShowMessage(ClipBoard.AsText);
ClipBoard.Destroy;

  end;
 End;