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