Obtenha string do arquivo .INI
var
strResultado:pchar;
começar
GetPrivateProfileString(
´windows´,//O nome do título em []
´NullPort´,//=O nome antes do número
´NIL´,//Se a string não for encontrada, o valor padrão retornado
strResult, //Armazena os caracteres obtidos
100, //Obtém o comprimento máximo permitido de caracteres
´c:/forwin95/win.ini´//O nome do arquivo chamado
);
edit1.text:=strResult;//Exibe a string obtida
Obtenha o número inteiro do arquivo .INI
edit1.text:=inttostr(GetPrivateProfileInt(
´intl´,//O nome do título em []
´iCountry´,//=nome antes do número
0, //Se nenhum número inteiro for encontrado, o valor padrão retornado
´c:/forwin95/win.ini´//O nome do arquivo chamado
));
Gravar string no arquivo .INI
WritePrivateProfileString(
´windows´,//O nome do título em []
´load´,//Para escrever a string antes do sinal "="
´accca´, //Dados a serem gravados
´c:/forwin95/win.ini´//O nome do arquivo chamado
);
Grave números inteiros no arquivo .INI
WritePrivateProfileSection(
´windows´,//O nome do título em []
´read=100´,//Dados a serem gravados
´c:/forwin95/win.ini´//O nome do arquivo chamado
);
O método acima é chamar a função API. Aqui está outro método para obter caracteres do arquivo .INI sem usar a API.
varMyIni:TIniFile;
começar
MyIni:=TIniFile.Create(´WIN.INI´);//O nome do arquivo chamado
edit1.text:=MyIni.ReadString(´Desktop´,´Wallpaper´,´´);//Obter caracteres
fim;
Como escrever caracteres em um arquivo .INI
varMyIni:TIniFile;
começar
MyIni:=TIniFile.Create(´WIN.INI´);//O nome do arquivo chamado
DelphiIni.WriteString(´Desktop´,´Papel de parede´,´c:/a.bmp´);
fim;