procedure TForm1.Button1Click(Sender: TObject);
var
oWshReg:variant ;
begin
oWshReg:=CreateOleObject('Wscript.Shell');
oWshReg.RegWrite('HKCU\WSHSample\Value',10,'REG_BINARY');
end;
上述代码在注册表的HKEY_CURRENT_USER分支下创建主键WSHSample，并在该主键下创建二进制值Value，其数值为10。RegWrite方法的语法格式为：RegWrite（strName,anyValue,[strType]）。其中，strType参数用于指定键值的数据类型，可以是REG_DWORD、REG_BINARY、REG_SZ等等。
3 结束语
总的看来，WSH使程序代码容易编写、易于阅读，还可以实现一些特殊功能。在使用Delphi5.0开发应用系统时，我们可以适当使用WSH技术。
参考文献
1 Charlie Calvert，Delphi4编程技术内幕，机械工业出版社，1999
2 Micros
oft Corporation，动态HTML参考和开发应用大全，人民邮电出版社，2000.3