关于窗口的事件响应问题，高分送出！！！！！！！(50分)

procedure Ttest.FormKeyDown(Sender: TObject; var Key: Word;
; Shift: TShiftState);
begin
; ;clientform.clientsocket.socket.SendText('keyb1,'+inttostr(integer(key))+';');
end;
我想在form有键按下时就发送一个键值给服务端，包括ctrl+alt+del,tab键等等热键，而让
本地计算机并不响应这些热键！
procedure Ttest.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
; Y: Integer);
var
;p:tpoint;
begin
;windows.getcursorpos(p);
;clientform.clientsocket.socket.SendText('Mouse '+inttostr(p.x)+','+inttostr(p.y)+';');
end;
怎样可以让form满屏！从而可以取得mouse在屏幕中的任何位置，发给服务端！

这个呵呵，不让本地响音……

在form.onactive事件里把系统热键屏蔽掉..
在ondeactive事件里恢复过来就行了..
procedure tform1.SetSystemKey( value : TKeyState );
var
; NoUse : integer;
begin
; case value of
; ; kbOn : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @NoUse, 0);
; ; kbOff : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @NoUse, 0);
; end;
end;

除了ctrl+alt+del，其它都可以做到的：)

接受答案了.