系统初始设置

[mzx87]

一个系统想给系统做个初始设置，譬如说管理系统的用户，第二次启动后就边成了某某某管理系统。还有就是一些系统风格是通过调用一个个皮肤文件，但是第二次启动后这些初始设置都不能生效.我想让这些设置后能够生效.下次启动后都变成了设置后的效果.不知道如何用配置文件做,请大家帮帮忙.很急,在线等.

[frankie_24]

楼上的正解...
不过也给我点分吧...
呵呵...

[zwh202342]

呵呵，自己写一个ini文件，启动的时候读取ini里的配置！我得博客里有读写ini文件的例子
http://hi.baidu.com/little_grass/blog

[mzx87]

各位能不能具体点啊用ini文件我也知道.就是不知道如何编码实现

[frankie_24]

procedure WriteINIFile(FileName,Main,Key,Values:String);
var
INIFile_W:TINIFile;
begin
INIFile_w:=TINIFile.Create(FileName);
try
INIFile_w.WriteString(Main,Key,Values);
except
ShowMessage('写入配置文件失败');
end;
INIFile_w.Destroy;
end;


这个是写入的函数
filename :=ini的文件名
main:= 标题
key:= 名称
values:=值
引用头文件,INIFiles

function ReadINIFile(FileName,Main,Key:String):String;
var
INIFile_r:TINIFile;
begin
INIFile_r:=TINIFile.Create(FileName);
try
Result:=INIFile_r.ReadString(Main,Key,'');
except
ShowMessage('读取配置文件错误');
end;
INIFile_r.Destroy;
end;

[mdejtod]

uses inifiles;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
addsini: Tinifile;
s1: string;
begin
addsini := Tinifile.Create(extractfilepath(Application.ExeName) + 'conn.ini');
try
user := addsini.ReadString('Database', 'User', '');
database := addsini.ReadString('Database', 'database', '');
server := addsini.ReadString('Database', 'server', '');
password := addsini.ReadString('Database', 'password', '');
if_windows_login := addsini.ReadBool('database', 'if_windows_login', false);
finally
addsini.Free;
end;
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString:='';
try
begin
if if_windows_login then
s1 := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;' +
'Initial Catalog=' + database + ';Data Source=' + server + ''
else
s1 := 'Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;'+
'User ID='+user+';Initial Catalog='+database+';Data Source='+server+';Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False';
end;
ADOConnection1.ConnectionString := s1;
ADOConnection1.Connected := true;
except
application.MessageBox('数据库连接失败,请检查配置文件', '连接错误', mb_iconstop + MB_OK);
application.Terminate;

end;
end;
这边只是读取信息....写信息是:addsini.WriteString('database','source',source);

[mdejtod]

我晕

[mdejtod]

INI...