无窗口PAS文件访问INI文件的问题
// 获取DbConString.ini连接字符串
function TADOHelper.GetConnString(key: integer): string;
begin
getdir(0, Dir);
// Dir := Dir + '\DbConString.ini';
// Dir := 'F:\Delphi\AngelSulEmail\AngelSulEmail\Win32\Debug\DbConString.ini';
// Dir:= ExtractFilePath(Paramstr(0)) + '\DbConString.ini';
result := Dir;
end;
//保存INI设置参数
procedure SaveConfig(FileName : String;Setting : String;Key : String;Value : String);
begin
WritePrivateProfileString(PChar(Setting),pchar(Key),pchar(Value),pchar(FileName));
end;
//读取INI设置参数
function LoadConfig(FileName : String;Setting : String;Key : String) : String;
var
strResult:array[0..200] of Char;
begin
GetPrivateProfileString(pchar(Setting),pchar(Key),nil,strResult,300,pchar(FileName));
result:=strResult;
end;
