public
{ Public declarations }
procedure SetIniFile(Strtitle, StrName :String;FileName : String);
function ReadIniFile(Strtitle, StrName :String): String;
function TForm11.ReadIniFile(Strtitle, StrName: String): String;
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
Result := iniFile.ReadString(Strtitle,StrName,'');
IniFile.Free;
end;
procedure TForm11.SetIniFile(Strtitle, StrName :String; FileName: String);
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
showmessage(ExtractFileDir(Application.ExeName));
iniFile.WriteString(Strtitle,StrName,fileName);
IniFile.Free;
end;
//delphi/6725