1:
2:
3:

 SetForeGroundWindow(...);
 SetFocus(...);
 ShowWindow(...);					

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:

  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  case nCode < 0 of
    TRUE: exit; //wenn code kleiner 0 wird nix gemacht
                //if code smaller 0 nothing has to be done
    FALSE:
      begin
        // Taste F1 gedrückt
        if (wparam = 112) and (lparam < 0) then begin
          // nix
        end;
        // Taste F2 gedrückt
        if (wparam = 113) and (lparam < 0) then begin
          showwindow(HilfeHandle,sw_shownormal);
          sendmessage(HilfeHandle, ncode, wparam, lparam);
        end;
        // Taste F3 gedrückt
        if (wparam = 114) and (lparam < 0) then begin
          showwindow(HilfeHandle,sw_shownormal);
          sendmessage(HilfeHandle, ncode, wparam, lparam);
        end;
        // Taste F4 gedrückt
        if (wparam = 115) and (lparam < 0) then begin
          showwindow(HilfeHandle,sw_shownormal);
          sendmessage(HilfeHandle, ncode, wparam, lparam);
        end;					

1:

procedure WM_XY(var message: TMessage); message WM_XY;					

1:
2:
3:
4:
5:

procedure TDorSylv.WndProc(var Message : TMessage);
begin
  if ((Message.Msg = WM_KeyUP) or (Message.Msg = WM_KeyDown)) then setcursorpos(200,200);
  inherited WndProc(Message);
end; {end function}