有什么语句能锁住屏幕？急啊，谢谢啊！(34分)

就象一般网吧是的，在开机之前机器屏幕和鼠标都是锁着的<br>只有当远端服务器给你开锁了，才能进入系统。<br>请问用什么API函数可以实现远程锁住计算机？<br>大概好象是LOCK开头的，不太清楚，呵呵<br>希望各位高人多多帮忙啊，能给出详细点的代码<br>急用啊，毕业设计，谢谢大家

屏蔽.<br> &nbsp; &nbsp; &nbsp;hDesktop :=FindWindow('Progman', nil);<br> &nbsp; &nbsp; &nbsp;ShowWindow(hDesktop, SW_Hide);<br> &nbsp; &nbsp; &nbsp;StrPCopy(@wndClass[0], 'Shell_TrayWnd');<br> &nbsp; &nbsp; &nbsp;wndHandle :=FindWindow(@wndClass[0], nil);<br> &nbsp; &nbsp; &nbsp;ShowWindow(wndHandle, SW_Hide);<br>你试试！

unit Unit5;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs, StdCtrls;<br><br>type<br> &nbsp;TForm5 = class(TForm)<br> &nbsp; &nbsp;Button1: TButton;<br> &nbsp; &nbsp;Button2: TButton;<br> &nbsp; &nbsp;procedure Button1Click(Sender: TObject);<br> &nbsp; &nbsp;procedure Button2Click(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br>var<br> &nbsp;Form5: TForm5;<br> &nbsp;hDeskTop,wndhandle:Thandle;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm5.Button1Click(Sender: TObject);<br>begin<br> &nbsp;hDesktop :=FindWindow('Progman', nil);<br> &nbsp;EnableWindow(hDeskTop,false);<br> &nbsp;wndHandle :=FindWindow(pchar('Shell_TrayWnd'), nil);<br> &nbsp;EnableWindow(wndHandle,false);<br>end;<br><br>procedure TForm5.Button2Click(Sender: TObject);<br>begin<br> &nbsp; EnableWindow(hDeskTop,true);<br> &nbsp; EnableWindow(wndHandle,true);<br>end;<br><br>end.

TO:yitang<br>首先感谢你的帮助,但是在锁住鼠标的时候,按下键盘的ctrl+alt+del,还是能出现任务管理器,怎么把键盘也屏蔽掉呢?我的XP系统

c/s系统？<br>rundll32 user32.dll LockWorkStation 或win + L<br>远程解锁估计要模拟键盘输入了<br>还是用微软的东西锁的牢