[AGAG4]

Para Abrir y Grabar información de un archivo .ini:

Código Delphi [-]
{Donde :
 
[Datos] <=Seccion
Config=Si   <=Columna}
 
//Abrir
function DameIniVal(Seccion,Columna:String):String;
var
  IniReader :TMemIniFile ;
begin
  try
    IniReader := TMemIniFile.Create('c:\Archivo.ini');
    result:=IniReader.ReadString(Seccion,Columna,'');
  finally
    IniReader.Free;
  end;  
end;
 
//Grabar
procedure EscribeIniVal(Seccion,Columna,DatoNvo:String);
var
  IniReader :TIniFile ;
begin
  try
    IniReader := TIniFile.Create('c:\Archivo.ini');
    IniReader.WriteString(Seccion,Columna,DatoNvo);
  finally
    IniReader.Free;
  end;
end;

Saludos....