Fórum Guardar no INI CheckBox #221584

de presente... um pedacinho da minha aplicação...

//retira o nº do HD
GetVolumeInformation(PChar(´C:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
NumHD:=IntToHex(Serial,8);

Cam:=GetCurrentDir+´\´; //retira o caminho da aplicação

if not FileExists(Cam+´CADConfig.ini´) then
begin
//cria o ini
IniReg:=TIniFile.Create(Cam+´CADConfig.ini´);
IniReg.WriteString(´reg´,´Data´,NumHD);
IniReg.Free;
end else
begin
//laia o nº HD do ini
LeReg:=TIniFile.Create(Cam+´CADConfig.ini´);
ReReg:=LeReg.ReadString(´reg´,´Data´,´´);
LeReg.Free;
//verifica se o nº do HD é igual ao do ini
if ReReg<>NumHD then
begin
MessageDlg(´O sistema CadCds 3, detectou uma instalação´, mtError,[mbOk], 0);
MessageDlg(´CadCds 3, será encerrado´, mtInformation,[mbOk], 0);
application.terminate;
end;
end;

Nerdex, agradecido por querer ajudar, mas não é isso que eu quero.

juarezber@terra.com.br

Olá

Você quer a posição dentro do Form ou o Status (Checked = True)

Ambos da mesma maneira:



Esse código pega do Ini um valor qualquer...ai vc define de acordo com tua necessidade...

Para gravar no ini, use Writestring(seção, campo, valor);