# ARQUIVOS INI

Veja este exemplo:
1) Salvar
Procedure TFrmMain.SaveConfiguration;
Var Arq: TIniFile;
sTime: String;
Begin
Arq := TIniFile.Create(´c:\winnt\BackupManager.ini´);
sTime := PadL(TimeToStr(StrToDateTime(EditDateTimeStart.Text)),8,´0´);

Arq.WriteString(´Main´, ´MainDir´ , EditMainDir.Text );
Arq.WriteString(´Main´, ´BatchShutdown´ , txt_batchShutdown.Text );
Arq.WriteString(´Main´, ´DBName´ , EditDBName.Text );
Arq.WriteString(´Main´, ´TimeStart´ , sTime );

Arq.WriteString(´Tasks´, ´DoExport´ , BoolToStr(CBDoExport.checked , true));
Arq.WriteString(´Tasks´, ´DoBackupToTape´ , BoolToStr(CBDoBackupToTape.checked , true));
Arq.WriteString(´Tasks´, ´DoShutDownServer´ , BoolToStr(CBDoShutDownServer.checked , true));
Arq.WriteString(´Tasks´, ´DoCloseApplication´, BoolToStr(CBDoCloseApplication.checked, true));

Arq.WriteString(´DAT´ , ´DoOverwrite´, BoolToStr(CBDoOverwrite.checked, true));

Arq.UpdateFile;
Arq.Free;
End;

2) Ler
Procedure TFrmMain.ReadConfiguration;
Var Arq: TIniFile;
Begin
Arq := TIniFile.Create(´c:\winnt\BackupManager.ini´);

MainDir := Arq.ReadString(´Main´ , ´MainDir´ , ´D:\Backup\´ );
txt_batchShutdown.Text := Arq.ReadString(´Main´ , ´BatchShutdown´ , ´´ );
DBName := Arq.ReadString(´Main´ , ´DBName´ , ´proautor´ );
TimeStart := Arq.ReadString(´Main´ , ´TimeStart´ , ´17:30:00´ );

DoExport := (Arq.ReadString(´Tasks´, ´DoExport´ , ´True´) = ´True´);
DoBackupToTape := (Arq.ReadString(´Tasks´, ´DoBackupToTape´ , ´True´) = ´True´);
DoShutDownServer := (Arq.ReadString(´Tasks´, ´DoShutDownServer´ , ´True´) = ´True´);
DoCloseApplication := (Arq.ReadString(´Tasks´, ´DoCloseApplication´, ´True´) = ´True´);

DoOverwrite := (Arq.ReadString(´DAT´ , ´DoOverwrite´ , ´True´) = ´True´);
End;

unit ArqsINI;

interface

uses
Windows, ..., IniFiles;



Var
MeuIni : TIniFile;
Valor : String;

Implementation

///////////////////////////////////////////////////////////////////////
Procedure GravaINI;
Begin
With MeuIni Do
Begin
MeuIni := TIniFile.Create (´ARQINI.Ini´);
WriteString (´CHAVE_INI´, ´ValorINI´, ´ConteudoINI´);
End;
End;

///////////////////////////////////////////////////////////////////////
Procedure LeINI;
Begin
With MeuIni Do
Begin
MeuIni := TIniFile.Create (´ARQINI.Ini´);
Valor := ReadString (´CHAVE_INI´, ´ValorINI´, ´ValorDefault´);
End;
End;


OBS:

Se tudo correr bem a variável ´Valor´ conterá ´ConteudoINI´,
caso contrário conterá ´ValorDefault´


Espero ter colaborado.

Um abraço

Celso_VS