行业应用

开发平台：
Delphi

RegUnit.pas：源码内容
							//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称：读写注册表单元
//程序名称：电子书库
//作    者：李会文
//开始时间：1999.07.01
//最后修改：1999.07.06
//备注：此单元定义了读写注册表中应用程序各种信息的单元，在应用程序初始时进行
//---------------------------------------------------------------------------
unit RegUnit;
interface
uses
  IniFiles, SysUtils, Forms, Graphics, MainUnit;
type
  TAppIni=class
  private
    FileName:string;
  public
    //数据库的各类设置
    MyLoveFile                       :string;        //我的最爱数据库名
    NearFile                         :string;        //上次关闭时的数据库名
    FileList                         :array[0..4] of string;//最近打开的5个文件
    OpenSrmWithApp                   :boolean;       //SRM文件是否用应用程序打开
    LoadNearFile                     :boolean;       //运行时是否装入上次打开的数据库
    MyLoveVisible                    :boolean;       //菜单上我的最爱是否显示
    FileListVisible                  :boolean;       //最近打开文件列表是否显示
    SaveDbQuery                      :boolean;       //保存数据库前是否提示
    DelRecordQuery                   :boolean;       //删除记录前是否提示
    //类成员函数
    constructor Create;
    destructor Destroy;override;
  end;
const
  csWidth='Width';
  csHeight='Height';
  csLeft='Left';
  csTop='Top';
  csState='State';
  csVisible='Visible';
  csColor='Color';
  csFontName='FontName';
  csFontSize='FontSize';
  csFontColor='FontColor';
  csFontStyle='FontStyle';
  csReadOnly='Edit';
  csWordWrap='WordWrap';
  csFileSection='File';
  csMyLoveFile='MyLoveFile';
  csNearFile='NearFile';
  csFileList0='FileList0';
  csFileList1='FileList1';
  csFileList2='FileList2';
  csFileList3='FileList3';
  csFileList4='FileList4';
  csOpenSrmWithApp='OpenSrmWithApp';
  csLoadNearFile='LoadNearFile';
  csMyLoveVisible='MyLoveVisible';
  csFileListVisible='FileListVisible';
  csSaveDbQuery='SaveDbQuery';
  csDelRecordQuery='DelRecordQuery';
var
  AppIni:TAppIni;
implementation
constructor TAppIni.Create;
var
  i,n:integer;
  Ini:TIniFile;
  pStyles:pointer;
  s:string;
begin
  //求出应用程序的INI文件名
  FileName:=Application.ExeName;
  n:=Length(FileName);
  FileName[n-2]:='i';
  FileName[n-1]:='n';
  FileName[n]  :='i';
  FileName:=LowerCase(FileName);
  Ini:=TIniFile.Create(FileName);
  with Ini do
  begin
    //MainFrom Section
    with SrmForm do
    begin
      s:=Name;
      SetBounds(ReadInteger(s,csLeft,0),
                ReadInteger(s,csTop,0),
                ReadInteger(s,csWidth,Width),
                ReadInteger(s,csHeight,Height));
      WindowState:=TWindowState(ReadInteger(s,csState,integer(WindowState)));
    end;
    //LeftFrom Section
    with SrmForm.LeftForm do
    begin
      s:=Name;
      Width:=ReadInteger(s,csWidth,Width);
      Visible:=ReadBool(s,csVisible,Visible);
    end;
    //TreeView Section
    with SrmForm.TreeView do
    begin
      s:=Name;
      Color:=ReadInteger(s,csColor,Color);
      with SrmForm.TreeView.Font do
      begin
        Name:=ReadString(s,csFontName,Name);
        Size:=ReadInteger(s,csFontSize,Size);
        Color:=ReadInteger(s,csFontColor,Color);
        n:=ReadInteger(s,csFontStyle,0);
        pStyles:=@n;
        Style:=TFontStyles(pStyles^);
      end;
    end;
    //RichEdit Section
    with SrmForm.RichEdit do
    begin
      s:=Name;
      Color:=ReadInteger(s,csColor,Color);
      with SrmForm.RichEdit.Font do
      begin
        Name:=ReadString(s,csFontName,Name);
        Size:=ReadInteger(s,csFontSize,Size);
        Color:=ReadInteger(s,csFontColor,Color);
        n:=ReadInteger(s,csFontStyle,0);
        pStyles:=@n;
        Style:=TFontStyles(pStyles^);
      end;
      ReadOnly:=ReadBool(s,csReadOnly,ReadOnly);
      WordWrap:=ReadBool(s,csWordWrap,WordWrap);
    end;
    //ToolBar Section
    with SrmForm.ControlBar do
    begin
      s:=Name;
      n:=ControlCount-1;
      for i:=0 to n do
      with SrmForm.ControlBar.Controls[i] do
      begin
        Left:=ReadInteger(s,Name+csLeft,Left);
        Top:=ReadInteger(s,Name+csTop,Top);
      end;
    end;
    //StatusBar Section
    with SrmForm.StatusBar do
    begin
      s:=Name;
      Visible:=ReadBool(s,csVisible,Visible);
    end;
    //ToolBar SpeedButton
    with SrmForm do
    begin
      TitleToolButton.Down:=LeftForm.Visible;
      ReadOnlyToolButton.Down:=RichEdit.ReadOnly;
    end;
    //File Section
    MyLoveFile:=ReadString(csFileSection,csMyLoveFile,'');
    NearFile:=ReadString(csFileSection,csNearFile,'');
    FileList[0]:=ReadString(csFileSection,csFileList0,'');
    FileList[1]:=ReadString(csFileSection,csFileList1,'');
    FileList[2]:=ReadString(csFileSection,csFileList2,'');
    FileList[3]:=ReadString(csFileSection,csFileList3,'');
    FileList[4]:=ReadString(csFileSection,csFileList4,'');
    OpenSrmWithApp:=ReadBool(csFileSection,csOpenSrmWithApp,true);
    LoadNearFile:=ReadBool(csFileSection,csLoadNearFile,true);
    MyLoveVisible:=ReadBool(csFileSection,csMyLoveVisible,true);
    FileListVisible:=ReadBool(csFileSection,csFileListVisible,true);
    SaveDbQuery:=ReadBool(csFileSection,csSaveDbQuery,true);
    DelRecordQuery:=ReadBool(csFileSection,csDelRecordQuery,true);
    //MainMenu
    with SrmForm do
    begin
      StatusMenuItem.Checked:=StatusBar.Visible;
      TitleMenuItem.Checked:=LeftForm.Visible;
      ReadOnlyMenuItem.Checked:=RichEdit.ReadOnly;
    end;
  Ini.Free;
  end;
end;
destructor TAppIni.Destroy;
var
  i,n:integer;
  Ini:TIniFile;
  tmpStyles:TFontStyles;
  pStyles:pointer;
  s:string;
begin
  Ini:=TIniFile.Create(FileName);
  with Ini do
  begin
    //MainFrom Section
    with SrmForm do
    begin
      s:=Name;
      WriteInteger(s,csState,integer(WindowState));
      if WindowState<>wsNormal then  //如果不为正常的话，
      begin
      WriteInteger(s,csWidth,540) ;  //设为一个常值
      WriteInteger(s,csHeight,411);
      WriteInteger(s,csLeft,Screen.Height div 2); //各为桌面的一半！
      WriteInteger(s,csTop,Screen.Width div 2)
      end
      else
      begin
      WriteInteger(s,csWidth,Width);
      WriteInteger(s,csHeight,Height);
      WriteInteger(s,csLeft,Left);
      WriteInteger(s,csTop,Top);
    end;
    end;
    //LeftFrom Section
    with SrmForm.LeftForm do
    begin
      s:=Name;
      WriteInteger(s,csWidth,Width);
      WriteBool(s,csVisible,Visible);
    end;
    //TreeView Section
    with SrmForm.TreeView do
    begin
      s:=Name;
      WriteInteger(s,csColor,Color);
      with SrmForm.TreeView.Font do
      begin
        WriteString(s,csFontName,Name);
        WriteInteger(s,csFontSize,Size);
        WriteInteger(s,csFontColor,Color);
        tmpStyles:=Style;
        pStyles:=@TmpStyles;
        WriteInteger(s,csFontStyle,integer(pStyles^));
      end;
    end;
    //RichEdit Section
    with SrmForm.RichEdit do
    begin
      s:=Name;
      WriteInteger(s,csColor,Color);
      with SrmForm.RichEdit.Font do
      begin
        WriteString(s,csFontName,Name);
        WriteInteger(s,csFontSize,Size);
        WriteInteger(s,csFontColor,Color);
        tmpStyles:=Style;
        pStyles:=@TmpStyles;
        WriteInteger(s,csFontStyle,integer(pStyles^));
      end;
      WriteBool(s,csReadOnly,ReadOnly);
      WriteBool(s,csWordWrap,WordWrap);
    end;
    //ToolBar Section
    with SrmForm.ControlBar do
    begin
      s:=Name;
      n:=ControlCount-1;
      for i:=0 to n do
      with SrmForm.ControlBar.Controls[i] do
      begin
        WriteInteger(s,Name+csLeft,Left);
        WriteInteger(s,Name+csTop,Top);
      end;
    end;
    //StatusBar Section
    with SrmForm.StatusBar do
    begin
      s:=Name;
      WriteBool(s,csVisible,Visible);
    end;
    //File Section
    WriteString(csFileSection,csMyLoveFile,MyLoveFile);
    WriteString(csFileSection,csNearFile,NearFile);
    WriteString(csFileSection,csFileList0,FileList[0]);
    WriteString(csFileSection,csFileList1,FileList[1]);
    WriteString(csFileSection,csFileList2,FileList[2]);
    WriteString(csFileSection,csFileList3,FileList[3]);
    WriteString(csFileSection,csFileList4,FileList[4]);
    WriteBool(csFileSection,csOpenSrmWithApp,OpenSrmWithApp);
    WriteBool(csFileSection,csLoadNearFile,LoadNearFile);
    WriteBool(csFileSection,csMyLoveVisible,MyLoveVisible);
    WriteBool(csFileSection,csFileListVisible,FileListVisible);
    WriteBool(csFileSection,csSaveDbQuery,SaveDbQuery);
    WriteBool(csFileSection,csDelRecordQuery,DelRecordQuery);
  end;
  Ini.Free;
end;
end.

						