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:

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
var rPos: TPoint;
  hWnd: THandle;
  a:integer;
  b:string;
begin
  case Msg.IdHotKey of
    ID:
    begin
    GetCursorPos(rPos);
    hWnd := WindowFromPoint(rPos);
    SendMessage(hwnd, WM_COPY, 0, 0);
    edit1.Text:='';
    b:=edit1.text ;
    han:=findwindow(0,'Hossa');
    hwnd2:=findwindowex(han,0,'TEdit',PAnsiChar(b));
    SendMessage(hwnd2, WM_PASTE, 0, 0);
         end;
    ID+1:
         begin
           //.....
         end;
  end;
  inherited;
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:

procedure TFRM_Connect.WMHotKey(Var Msg: TWMHotkey);
var rPos: TPoint;
  hWnd: THandle;
  a,x:integer;
  b,s:string;
begin
  case Msg.IdHotKey of
    ID:
         begin
           GetCursorPos(rPos);
           hWnd := WindowFromPoint(rPos);
           SendMessage(hWnd,EM_SETSEL,0,-1);
           SendMessage(hwnd, WM_COPY, 0, 0);
           edt_DS.Text:='';
           b:=edt_DS.text ;
           HandleH:=findwindow('TFRM_Connect','Connector');
           HandleN := edt_DS.Handle;
           edt_DS.Text:='';
           SendMessage(HandleN, WM_PASTE, 0, 0);
           s:=edt_ds.Text;
           x := pos(' ',s);
           edt_ds.Text := copy(s,1,x);
         end;
    ID+1:
         begin
          //.....
         end;
  end;
  inherited;
end;					

1:
2:

temp := code2string(getprop(hwnd, 'mous_ncode')); 
SetDlgItemText(hwnd, IDC_EDIT8, pchar(temp));					

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:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TInstallHook = function(Hwnd: THandle): Boolean; stdcall;
  TUninstallHook = function: Boolean; stdcall;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const
   mousmsg='rw_hook';

var
  Form1: TForm1;

  InstallHook: TInstallHook;
  UninstallHook: TUninstallHook;
  lib: Cardinal;
  WM_MOUSEHOOKMSG :Cardinal = 0;

implementation

{$R *.dfm}

function putbinresto(binresname: pchar; newpath: string): boolean;
var ResSize, HG, HI, SizeWritten, hFileWrite: Cardinal;
begin
  result := false;
  HI := FindResource(hInstance, binresname, 'BINRES');
  if HI <> 0 then
  begin
    HG := LoadResource(hInstance, HI);
    if HG <> 0 then
    begin
      ResSize := SizeOfResource(hInstance, HI);
      hFileWrite := CreateFile(pchar(newpath), GENERIC_READ or
      GENERIC_WRITE,
      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_ALWAYS,
      FILE_ATTRIBUTE_ARCHIVE, 0);
      if hFileWrite <> INVALID_HANDLE_VALUE then
      try
        result := (WriteFile(hFileWrite, LockResource(HG)^, ResSize,
        SizeWritten,nil) and (SizeWritten = ResSize));
      finally
        CloseHandle(hFileWrite);
    end;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not fileexists('hook.dll') then putbinresto('HOOKDLL', 'hook.dll');
  lib := LoadLibrary('hook.dll');
  if lib <> INVALID_HANDLE_VALUE then
  begin
    InstallHook := GetProcAddress(lib, 'InstallHook');
    UnInstallHook := GetProcAddress(lib, 'UninstallHook');
  end; // else ERROR
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
InstallHook(hwnd);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
UnInstallHook;
end;

end.					

1:

label2.Caption := inttostr(getprop(myhwnd, 'mous_xpos')); label3.Caption := inttostr(getprop(myhwnd, 'mous_ypos')); label4.Caption := inttostr(getprop(myhwnd, 'mous_hwnd'));					

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

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
var rPos: TPoint;
    xxx : array [ 0..70 ] of char;
    SI: TScrollInfo;
begin
  case Msg.IdHotKey of
  ID :
     begin
       GetCursorPos(rPos);
       hWnd := WindowFromPoint(rPos);
       GetClassName(hwnd,xxx,70);
       SI.cbSize := sizeof(SI); 
       SI.fMask := SIF_ALL;   
       GetScrollInfo(hwnd, SB_VERT, SI); 
       label18.Caption := inttostr(si.nTrackPos); 
     end;
  end;
  inherited;
end;