如何用DELPHI实现锁定系统这样的功能？(100分)

如何用DELPHI实现锁定系统这样的功能？

系统什么样的功能呢？

你知道屏幕保护的原理么！

说清楚点，是锁定界面的按钮，还是什么？<br>我倒是做过一个。

我想在程序中調用WINDOWS的鎖定電腦?<br><br>如果象：善凉的狼所說的鎖定界面的按钮，也可以.<br>

function LockWS: Boolean;<br>type<br>&nbsp; TLockWorkStation = function: Boolean;<br>var<br>&nbsp; hUser32: HMODULE;<br>&nbsp; LockWorkStation: TLockWorkStation;<br>begin<br>&nbsp; hUser32 := GetModuleHandle('USER32.DLL');<br>&nbsp; if hUser32 &lt;&gt; 0 then<br>&nbsp; begin<br>&nbsp; &nbsp; @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');<br>&nbsp; &nbsp; if @LockWorkStation &lt;&gt; nil then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; LockWorkStation;<br>&nbsp; &nbsp; &nbsp; Result := True;<br>&nbsp; &nbsp; end;<br>&nbsp; end;<br>end;<br>-----------------------------------------------------------------------------<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>LockWS;<br>end;

谢谢。