求win2k中锁死键盘的方法（或者能够屏蔽Ctrl+Alt+Del）,汇编也可(50分)

求win2k中锁死键盘的方法（或者能够屏蔽Ctrl+Alt+Del）,汇编也可

斑竹帮我收回分数行么？

不行

把这个回答了吧<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=754593<br>

<br>//以下代码仅供参考<br>{<br>This component for hide/show your application in control+alt+delete<br>Control+alt+delete tuslarina bastiginizda uygulamanizin gozukmesini<br>istemiyorsaniz bu component size gore...<br>izzet uslu<br>istanbul-TURKEY<br>http://members.xoom.com/izus<br>izus6@hotmail.com<br>}<br>unit HSApp;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, Classes, Controls, Forms, dsgnintf;<br><br>type<br><br>&nbsp; TAboutProperty = class(TPropertyEditor)<br>&nbsp; private<br>&nbsp; &nbsp; procedure Edit; override;<br>&nbsp; &nbsp; function GetAttributes: TPropertyAttributes; override;<br>&nbsp; &nbsp; function GetValue: string; override;<br>&nbsp; end;<br><br>&nbsp; THideShowApp = class(TComponent)<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; &nbsp; FAbout:TAboutProperty;<br>&nbsp; protected<br>&nbsp; &nbsp; { Protected declarations }<br>&nbsp; public<br>&nbsp; &nbsp; procedure Hide;<br>&nbsp; &nbsp; procedure Show;<br>&nbsp; published<br>&nbsp; &nbsp; { Published declarations }<br>&nbsp; &nbsp; property About : TAboutProperty read FAbout write FAbout;<br>&nbsp; end;<br><br>procedure Register;<br><br>function RegisterServiceProcess(<br>dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';<br><br>implementation<br><br>{$R HSAPP.RES}<br><br>procedure THideShowApp.Hide;<br>begin<br>&nbsp; RegisterServiceProcess(GetCurrentProcessID, 1);<br>end;<br><br>procedure THideShowApp.Show;<br>begin<br>&nbsp; RegisterServiceProcess(GetCurrentProcessID, 0);<br>end;<br><br>{ TAboutProperty }<br><br>procedure TAboutProperty.Edit;<br>begin<br>&nbsp; Application.MessageBox('By izzet uslu - 2000'#13#13'E-Mail : izus6@hotmail.com'#13'WEB : http://members.xoom.com/izus','HideShow component version 1.0', MB_OK+ MB_ICONINFORMATION);<br>end;<br><br>function TAboutProperty.GetAttributes: TPropertyAttributes;<br>begin<br>&nbsp; GetAttributes:=[paDialog, paReadOnly];<br>end;<br><br>function TAboutProperty.GetValue: string;<br>begin<br>&nbsp; GetValue:='(About)';<br>end;<br><br><br>procedure Register;<br>begin<br>&nbsp; RegisterComponents('izus', [THideShowApp]);<br>&nbsp; RegisterPropertyEditor(TypeInfo(TAboutProperty), THideShowApp, 'ABOUT', TAboutProperty);<br>end;<br><br>end.

我记得&lt;程序员&gt;11月份有过类似的东西，好像是在WinLogon和GINA上在搞，你可以看一看。

接受答案了.