Exemplo com Código - Como criar um arquivo .ini

Ola neste post estarei ensinando para vocês como criar um arquivo .ini apartir de um código.
estarei disponibilizando para vocês o download. Neste Exemplo estarei usando o delphi 7.

Então vamos primeiro para o Design.
Vamos precisar de uma Edit, uma Label e um Button ( Pode ser um BitBtn ). Todos da Aba Standard. Assim:

Feito isso, vamos arrumar nosso formulário:

Poderemos fazer de duas formas, usar 2 formulários ou 1 com o conteúdo dos 2.

Vou fazer com apenas 1 Formulário.

Então. Bote o resto dos componentes que você vai fazer para seu programa.

Por Exemplo, assim:

Utilizando o mesmo formulário:

Agora deixe os Panels e outros componentes que não sejam os Primeiros componentes que Botamos não visíveis.

Na Palheta de Propriedades - Object Inspector

nestes componentes que botamos sem ser A Edit, a Label e o Button deixe a Propriedade deles de Visible = False;
Assim:

A Edit, a Label e o Button.

Assim:

nesta imagem eu copilei a aplicação para mostrar que os outros componentes não estão visíveis.

Agora Faremos o Seguinte:

Anote o Tamanho das Informações - Height = Altura;

                                                         Width = Largura;

Por Exemplo no exemplo atual ficaria assim:

                                                          Height = 480;

                                                          Width = 696;

Agora Redimensione o Formulário:

Por Exemplo, assim:

Agora anote Width e Height.

Neste Exemplo seria: Height = 304 e Width =  366.

Agora vá no Primeiro Formulário e no evento onCreate dele digite o seguinte código:
Form1.Height := 304;
Form1.Width := 366;
Agora Vamos Fazer o Seguinte:
Na Clausula Uses , lá no topo do Código Fonte bote assim por exemplo:
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, StdCtrls, IniFiles;
coloque IniFiles no Uses.
Agora Vamos Criar uma Variável.
em: Public Digite o Seguinte.
public

iniConf:TIniFile;
{ Public declarations }
end;

---

iniConf : TIniFile;

---

Agora no OnCreate Ainda
Depois das Medidas: Height =..

Coloque o Seguinte:
iniConf := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Conf.ini');
ou seja
Eu estou mandando que ele crie um arquivo com o nome Conf.ini na pasta do meu aquivo.
Agora Ainda nu OnCreate, depois do iniConf := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Conf.ini'); bote o seguinte:

iniConf.WriteString('Usuario','nome',InputBox('Digite o Nome de Usuário','Nome de Usuário',''));
então: IniConf vai escrever no meu arquivo Ini uma sessão Usuario com um objeto nome e com o conteúdo que sair do InputBox.

Agora Salve em uma pasta.
Agora Rode A Aplicação, e vai aparecer esta tela.:

Digite um nome:

e de Enter.
E vai aparecer a tela de acesso.
Agora vá na pasta onde você salvou o Projeto e você vai ver um arquivo chamado Conf.

Abra ele.

E note que vai aparecer o nome que você botou na caixa do inputbox.

Vá para o delphi.

E no Evento onCreate Troque tudo por:

begin

iniConf := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Conf.ini');

 if iniConf.ReadString('Usuario','nome','') = '' Then
  iniConf.WriteString('Usuario','nome',InputBox('Digite o Nome de Usuário','Nome de Usuário',''))
else
  Form1.Height := 304;
  Form1.Width := 366;
end;

ou seja ele vai ler a linha de Usuario,Nome ai o que tiver aqui for igual a '' ou seja nada então ele vai abrir o Inputbox para que você determine algum nome.

agora voltando para o formulário de 2 cliques no button e digite isso:

if iniConf.ReadString('Usuario','nome','') = edit1.text Then
begin
Application.MessageBox('Bem Vindo','OK',MB_OK+MB_ICONINFORMATION);
Edit1.Visible := False;
Button1.Visible := False;
Label1.Visible := False;
Form1.Height := 480;
Form1.Width := 696;
//Esses são os meus componentes, os que botei para fazer o resto do programa.
Panel1.Visible := True;
Panel2.Visible := True;
Panel3.Visible := True;
end;
 

Se você não tiver colocado panels não precisa botar as panels.

---

Baixar Exemplo