PostMessage в DLL

[Federal]

library hook;
Uses Windows, Messages, WinProcs, Sysutils;

var
  myHook: HHook = 0;
  B, T :string;
  h: hwnd;
procedure init(m:hwnd);
begin
//h:=m;
end;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
var r: integer;
    S: string;

begin
  if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
  begin
  r:=wParam;
  S:='vkl('+IntToStr(r)+')';
  B:=S;
  ////PostMessage(h,WM_USER+1001,0,0);
 ////На этапе message посылает сообщение активному приложению, 
////а мне нужно чтоб он всегда слал сообщение моему приложению, как быть? 
  result:=CallNextHookEx(myHook,Code,wParam,lParam);
  end;
end;

function GetStr : Variant;
begin
  T:=B;
  Result:=T;
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

exports setHook name 'SetHook';
exports GetStr;
exports init;

begin
end.

[GunSmoker]

Читать отсюда и до просветления.