中。

ww.WriteString(''top'',IntToStr(Form1.top));

ww.WriteString(''left'',IntToStr(Form1.left));

ww.WriteString(''height'',IntToStr(Form1.Height));

ww.writeString(''width'',IntToStr(Form1.Width));

end;

end;

    需要注意的几点:

    1.因为程序不可能在第一次使用时就从注册表里读数据，所以
第一次必须由程序赋一个初值,然后做上标记，以后只要判断出不是
第一次了，就可以读数据了。（这点最重要,由此还可以引出一个话
题，那就是可以做一个Demo版的软件，每次启动时往注册表里加个
1,当它的值大于10时，就不许用该软件了，Cool吧！）

    2.理论上往注册表里可以写string型数据和Integer型数据，但
注册表中的Integer型数据是以16进制的形式存在的，而我们在程序
中用的都是10进制数，所以就用string型，然后用StrToInt或
IntToStr转换。

    3.写注册表并不是绝对安全，因为它的内容可以用RegEdit一览
无余地看到，所以千万不能将一些重要的信息(如密码)不经加密而
直接写入注册表，这样做是非常危险的！！

    另外，有兴趣的朋友还可以把这段程序做在一个DLL文件中,这
样以后再做一个Project的时候就可以直接用这两个函数了，非常方
便。

    以上程序在中文Windows 97 OSR2.0，Delphi4中调试通过。