口位置，并在这一次启动时和上一次的位置一样。总体
思路是这样的：在关闭程序时要记录下本次程序结束时的信息，写入注册表中，在下次程序启动
时读注册表中相应信息，并赋给程序。
   对于我们这个程序来说主要需要记录的信息是窗口关闭时的Top,Left,Height,Width。
   注意：要想使Delphi可以操作注册表，必须包括registry单元。

以下是源程序和相关注释：
  unit Unit1;

  interface

  uses
    Windows, Messages,. . . . . . . ,registry;     //包括registry单元
  type
    TForm1 = class(TForm)
   
    public
      ww:TRegistry;                  
//声明一个TRegistry对象，我们就通过ww来实现对注册表的操作

//启动窗口时要做的一些工作
procedure TForm1.FormCreate(Sender: TObject);
begin
 ww:=TRegistry.Create;                  
//创建ww对象
 ww.RootKey :=HKEY_CURRENT_USER;        
//注意：通过修改RootKey可以把信息写到注册表的每一个角落
 ww.OpenKey(''software'',FALSE);          
//打开键software,可以看到Borland，Netscape，还有Microsoft也在这个software键中
 ww.CreateKey( ''王伟'');                  
//在software键中创建一个名为“王伟“的键值，使自己的名字和Borland,Netscape,
//Microsoft并排在一起，是不是很Cool啊:)
 ww.OpenKey( ''王伟'',FALSE);              
//打开键"王伟"
 ww.CreateKey(''XX单位XX管理系统'');      
//创建应用程序的名称
 ww.OpenKey(''XX单位XX管理系统'',TRUE);
 ww.CreateKey(''位置'');                  
//创建应用程序中某一个要存贮的项目的名称，便于管理
 ww.OpenKey(''位置'',TRUE);
 if (ww.ReadString(''first'')<>''1'')then    
//这是值得注意的一个地方，通过“first“来判断程序是否
   begin                                
//是第一次写注册表,如果是第一次写则用程序给的默认值来
   ww.WriteString(''first'',''1'');          
//设置窗口的位置和大小。如果不是第一次启动应用程序则说明
   Form1.WindowState:=(wsNormal);        
//注册表中已经写了位置信息，就读这些信息并赋给Form。
   Form1.Top:=10;
   form1.Left:=10;
   form1.Height:=100;
   form1.Width:=100;
   end
 else
 begin
   if(ww.ReadString(''max'')=''y'') then    
//判断上次关闭程序时，窗口是否是最大化的。如果是的话，则 Form1.WindowState:=(wsMaximized)    
//继续使窗口拥有这一特征。
   else
   begin
   Form1.top:=StrToInt(ww.Read