Obtener cadena del archivo .INI
var
strResultado:pchar;
comenzar
Obtener cadena de perfil privado (
´windows´,//El nombre del título en []
´NullPort´,//=El nombre antes del número
´NIL´,//Si no se encuentra la cadena, se devuelve el valor predeterminado
strResult,//Almacena los caracteres obtenidos
100, //Obtiene la longitud máxima permitida de caracteres
´c:/forwin95/win.ini´//El nombre del archivo llamado
);
edit1.text:=strResult;//Muestra la cadena obtenida
Obtener un número entero del archivo .INI
edit1.text:=inttostr(GetPrivateProfileInt(
´intl´,//El nombre del título en []
´iCountry´,//=nombre antes del número
0, //Si no se encuentra ningún número entero, se devuelve el valor predeterminado
´c:/forwin95/win.ini´//El nombre del archivo llamado
));
Escribir cadena en un archivo .INI
WritePrivateProfileString(
´windows´,//El nombre del título en []
´load´,//Para escribir la cadena antes del signo "="
´accca´,//Datos a escribir
´c:/forwin95/win.ini´//El nombre del archivo llamado
);
Escribir números enteros en un archivo .INI
Escribir sección de perfil privado (
´windows´,//El nombre del título en []
´read=100´,//Datos a escribir
´c:/forwin95/win.ini´//El nombre del archivo llamado
);
El método anterior consiste en llamar a la función API. Aquí hay otro método para obtener caracteres del archivo .INI sin utilizar la API.
varMyIni:TIniFile;
comenzar
MyIni:=TIniFile.Create(´WIN.INI´);//El nombre del archivo llamado
edit1.text:=MyIni.ReadString(´Desktop´,´Wallpaper´,´´);//Obtener caracteres
fin;
Cómo escribir caracteres en un archivo .INI
varMyIni:TIniFile;
comenzar
MyIni:=TIniFile.Create(´WIN.INI´);//El nombre del archivo llamado
DelphiIni.WriteString(´Escritorio´,´Fondo de pantalla´,´c:/a.bmp´);
fin;