delphi 程序中读取ini文件的问题

//写Ini
Procedure WriteIniFile(sSection,sIndent,sValue:String);
Var
TmpIni:TIniFile;
Begin
TmpIni:=TIniFile.Create(SysInfo.AppDir+'\SysConfig.ini');
Try
TmpIni.WriteString(sSection,sIndent,sValue);
Finally
TmpIni.Free;
End;
End;
//读取INI
Function ReadFromIniFile(sSection,sIndent,sDefault:String):String;
Var
TmpIni:TIniFile;
Begin
TmpIni:=TIniFile.Create(SysInfo.AppDir+'\SysConfig.ini');
Try
Result:=TmpIni.ReadString(sSection,sIndent,sDefault);
Finally
TmpIni.Free;
End;
End;
//取得连接串
function GetDBCnstr:String;
begin
Result:=Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;'+
'Jet OLEDB:Database Password=%s',[123.mdb','你的密码'])

end;

//机密解密
function UncrypStr(sInput:String):String;
begin
//具体代码网上找
end;

function EncrypStr(sInput:String): String;
Begin
End;

//可以了巴，函数体都给你了，自己组合去，^_^。

你可以把ConnectionString加密一下，得出的字符串设在INI里面，不用把INI整个文件加密了。