Fórum Registro do Windows #153997

Estude o exmplo abaixo, e altere de acordo com suas necessidades:

[b:35e4ba1a7c]120 - Pegando o registro do windows[/b:35e4ba1a7c]Unit Registry

procedure TSplash_Form.FormActivate(Sender: TObject);
var
reg: TRegIniFile;
begin
reg := TReginiFile.Create(´SOFTWARE\MICROSOFT\MS SETUP (ACME)\´);
Label1.Caption := reg.ReadString(´USER INFO´,´DefName´,´´);
reg.Free;
end;


[b:35e4ba1a7c]662 - Exemplos de path via registro[/b:35e4ba1a7c]
O exemplos abaixo lidam com arquivos INI. A idéia é a mesma do registry, com a vantagem de que o INI também roda no Kylix sem problemas. Eu não sou muito fã do registry, embora sempre me veja mexendo nele.

Geralmente eu uso essas funções numa tela de login e guardo o nome do último usuário e da última conexão.

procedure TfrmLogin.LoadConfig;
var
IniFile : TIniFile;
FIniFileName : ShortString;
begin
FIniFileName := LowerCase(ExtractFileName(Application.ExeName));
FIniFileName := Copy(FIniFileName, 1, Length(FIniFileName) - 3) + ´ini´;
IniFile := TIniFile.Create(FIniFileName);
LogonUserName := IniFile.ReadString(SectionData, KeyUser, ´´ );
ConnectionString := IniFile.ReadString(SectionData, KeyConnection, ´´);
IniFile.Free;
end;

procedure TfrmLogin.SaveConfig;
var
IniFile : TIniFile;
FIniFileName : ShortString;
begin
FIniFileName := LowerCase(ExtractFileName(Application.ExeName));
FIniFileName := Copy(FIniFileName, 1, Length(FIniFileName) - 3) + ´ini´;
IniFile := TIniFile.Create(FIniFileName);
IniFile.WriteString(SectionData, KeyUser, LogonUserName );
IniFile.WriteString(SectionData, KeyConnection, ConnectionString);
IniFile.Free;
end;
A variável FIniFile permite que sejam criados arquivos INI com o mesmo nome da aplicação. Isso é bom e é ruim. É bom se cada aplicacao acessar um banco diferente. Ruim se elas acessam o mesmo banco. Neste ultimo caso, é só dar um nome fixo ao INI.