没有试过,应该可以;<br>关闭Ctrl+Alt+Del和WIN键,ALT+TAB<br>var<br> OldVal : LongInt;<br>begin<br> SystemParametersInfo (97, Word (True), @OldVal, 0)<br>end;<br>关闭任务栏。<br>hTaskBar := FindWindow('Shell_TrayWnd', nil);<br> ShowWindow(hTaskBar, SW_HIDE);<br>接下去的好办了吧. <br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> Reg: Tregistry;<br>begin<br> RegisterServiceProcess( GetCurrentProcessID, 1 );<br> Reg := Tregistry.Create ;<br> Reg.RootKey := HKEY_LOCAL_MACHINE;<br> Reg.OpenKey ('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true);<br> Reg.WriteString('AutoStart',application.ExeName );<br> Reg.CloseKey;<br> Reg.Free;<br>end;<br>注意在uses里加上registry。