Как узнать нажата ли кнопка?

[Ragnarek45]

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var app: HWND;
     c: longint;
begin
  if code = HC_ACTION then
  begin
  if TMsg(Pointer(lParam)^).message = WM_COMMAND then
    begin
    app := GetForegroundWindow();

    c := GetWindowLong(app, GWL_ID);
    if c = ID_OK then
       MessageBox(0, 'OK', 'MESS', 0);

    end;

  end;
  Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

c := GetWindowLong(app, GWL_ID); возвращает числовое значение и вообще это дескриптор...а он как я полагаю меняется регулярно...как там может быть if c = ID_OK then? Как узнать по caption какая кнопка нажата? Или по дескриптору?

Реализовал вот так:

 begin
  if TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN then
    begin
    app := GetForegroundWindow();
    d:=FindWindowEx(app,0,'TButton','Снять');
    if d <> 0 then
    begin
   ....

У меня там два поля TEdit как их различить? и как узнать их значения?
-------------------------------------------------------------------------
Неправильно нефига =( получается что я могу в любом месте кликнуть мышкой и код начнет выполняться. Потому что условия поиска кнопки выполняются =(

[Ragnarek45]

if TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN then
    begin
    app:=GetForegroundWindow();
    d:=FindWindowEx(app,0,nil,'Внести');
    getcursorpos(cursor);
    hand:=WindowFromPoint(d,cursor);
    if hand=d then

И почему выполняется условие даже если активно другое окно и курсор не на этой кнопке?
--------------------------------------------------------------------------------------------
Решено так:

if TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN then
    begin
    app:=GetForegroundWindow();
    d:=FindWindowEx(app,0,nil,'Внести');
    getcursorpos(cursor);
    hand:=WindowFromPoint(cursor);
    if d=0 then d:=777;
    if hand=0 then hand:=666;

    if d=hand then
 begin
      d1:=getwindow(app,GW_CHILD);
      sendmessage(d1, WM_SETTEXT, 0, longword(pchar('ываываыва')));
      d2:=getwindow(app,GW_HWNDNEXT);
      sendmessage(d2, WM_SETTEXT, 0, longword(pchar('фывафыафыа')));
      d3:=getwindow(app,GW_HWNDFirst);
      sendmessage(d3, WM_SETTEXT, 0, longword(pchar('aaaaaaaaa')));

Почему то не могу найти первое поле Tedit, на второе посылается по GW_CHILD, а первое вообще пустует..хм