请问如何用编程方式设置屏幕保护的密码以及自动启用的屏保文件!(100分)

请问如何用编程方式设置屏幕保护的密码以及自动启用的屏保文件!

相关的设置在HKEY_CURRENT_USER/Control Panel/Desktop下
screenSaveActive：是否激活屏幕保护功能
ScreenSaverIsSecure：是否激活密码保护
ScreeSaveTimeOut：等待时间
Scrnsave.exe：对应的.SCR文件的路径
以上是2000下的名字，98下名字可能有的不同。

用程序激活屏保，可以这样
procedure TForm1.Button1Click(Sender: TObject);
begin
DefWindowProc(handle,Wm_SYSCOMMand,Sc_Screensave,0)
end;

防止屏保激活，就象解霸。(不过只有在程序为当前窗口时才有效。)
Procedure TForm1.WMSysCommand(var Msg:TWMSysCommand);
Begin
If (Msg.CmdType and $FFF0)=Sc_ScreenSave then Msg.Result:=0
ELse Inherited;
End;

那怎样设置密码呢?

接受答案了.