WriteformState()ReadformState()

uses IniFiles;//引用IniFiles

 

{写入信息到ini文件 }
//WriteformState('Config.ini','MainForm',Form1)
procedure WriteformState(fileName:string;section:string;form:TForm);
var  INIFILE: TIniFile; 
begin
    INIFILE:=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName); 
    try
     INIFILE.WriteInteger(section,'Left',  form.Left);
     INIFILE.WriteInteger(section,'Top',   form.Top);
     INIFILE.WriteInteger(section,'Height',form.Height); 
     INIFILE.WriteInteger(section,'width', form.Width); 
    Finally  
     INIFILE.Free; 
    end;  
end;  

---

{从Ini读取信息并赋值}
//ReadformState('Config.ini','MainForm',Form1)
procedure ReadformState(fileName:string;section:string;form:TForm);
var 
 INIFILE: TIniFile; 
 frm1Left,frm1Top:integer;  
begin
  form.Position:=poDesigned;
  //FORM1 处于屏幕中心点时的left Top的值 用于第1次运行本程序时程序出现 在屏幕中心 
  frm1Left:=(Screen.Width-FORM.Width) div 2; 
  frm1Top :=(Screen.Height-FORM.Height) div 2; 
  INIFILE :=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName); 
    try  
         form.Left:= INIFILE.ReadInteger(section,'Left',  frm1Left); 
          form.Top:= INIFILE.ReadInteger(section,'Top',   frm1Top); 
       form.Height:= INIFILE.ReadInteger(section,'Height',form.Height); 
        form.Width:= INIFILE.ReadInteger(section,'Width', form.Width); 
    Finally 
      INIFILE.Free; 
    end;  
end; 

粘贴自： < ">http://www.cnpack.org/ >

 

通过 为知笔记 发布