关于屏幕保护的控制，清高手指教！！！(50分)

各位高手：
1.如何编写Delphi程序将自己设计的屏幕保护设置成为当前屏保?
2.在window98的注册表中对应屏幕保护的键是那一个？

在HKEY_CURRENT_USER/CONTROL PANEL/DESKTOP下

来晚了！！

怎么没有人回答我的第一个问题？
请详细回答!!!!急死我了！！！

>>

嘿嘿，转帖一段：
//NumenMeName是屏幕保护程序路径
if FileExists(NumenMeName) then
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKey_Current_User;
Reg.OpenKey('Control Panel/Desktop',False);
if UpperCase(Reg.ReadString('SCRNSAVE.EXE'))<>UpperCase(NumenMeName) then
if MessageDlg('NumenMe现在不是默认屏幕保护程序,'+#13#10+
'你要把它设置成默认屏幕保护程序吗',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Reg.WriteString('SCRNSAVE.EXE',NumenMeName);
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SendChange);
end;
Reg.CloseKey;
Reg.Free
可以看看这里。
<a href="DispQ.asp?LID=362441">关于屏幕保护程序和修改注册表</a>

NT的默认屏保路径是放在注册表的HKEY_CURRENT_USER/CONTROL PANEL/DESKTOP/SCRNSAVE.EXE
下；而Win98的是放在System.ini文件的[boot]下的，在[boot]下加入 SCRNSAVE.EXE=路径 ，
就可以了

多人接受答案了。