Buscar por:

Criando e lendo arquivo.ini, muito fácil mesmo

Descrição do arquivo Procedure tfrmmenu.cordefundo1click(sender: tobject); var cor : integer; begin //--salva a cor do forme if colordialog1.execute then begin cor := colordialog1.color; frmmenu.color := cor; memo2.text := inttostr(cor); memo2.lines.savetofile('sysreg.ini'); end; end; procedure tfrmmenu.formactivate(sender: tobject); begin if fileexists('sysreg.dll') then begin memo2.lines.loadfromfile('sysreg.ini'); frmmenu.color := strtoint(memo2.text); end; end;

Vote no arquivo

Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes do arquivo

Área: Exemplos - Diversos
Tamanho: 0.39 KB / 0 MB
Adicionado dia: 03/11/06
Por: Marcos Macedo
Visualizado: 6670 vezes
Baixado: 1416 vezes

Download do arquivo