|
▼ Mr.XRAYさん
> いやいや，みなさんからいろいろ情報を頂いたので，
> 来月あたり，いよいよやりますか．
パスワードやIDのバックアップには、秀さんの「パスワード統合管理」が
便利です。なんでもかんでもこれに書いておいてそのファイルさえ保管して
おけばすぐに戻せます。
> > INIファイルの方がよほど解りやすいのに…
> これだとバックアップ簡単ですよね．
レジストリに書くのがWindowsの流儀だという考えもありますが、私は
もっぱらINIファイルを使っています。これだと「設定がわからん」と言
う人には「ほれ」とINIファイルを送ってあげれば済みます。作るのも
楽です。
{===============================================================================
初期化ファイルから初期情報を読み出す
===============================================================================}
procedure IniFileRead();
var
IniFile : TIniFile;
begin
EnvIniFilePath := ChangeFileExt(Application.ExeName,'.ini');
IniFile := TIniFile.Create(EnvIniFilePath);
try
with IniFile do begin
FrmMain.Top := ReadInteger(EINI_SEC_WINDOWS, EINI_TOP,0);
FrmMain.Left := ReadInteger(EINI_SEC_WINDOWS, EINI_LEFT,0);
FrmMain.Width := ReadInteger(EINI_SEC_WINDOWS, EINI_WIDTH,800);
FrmMain.Height := ReadInteger(EINI_SEC_WINDOWS, EINI_HEIGHT,640);
end;
finally
IniFile.Free;
end;
end;
{===============================================================================
iniファイルに書き出す
===============================================================================}
procedure IniFileWrite();
var
IniFile : TIniFile;
begin
EnvIniFilePath := ChangeFileExt(Application.ExeName,'.ini');
IniFile := TIniFile.Create(EnvIniFilePath);
try
with IniFile do begin
WriteInteger(EINI_SEC_WINDOWS, EINI_TOP, FrmMain.Top);
WriteInteger(EINI_SEC_WINDOWS, EINI_LEFT,FrmMain.Left);
WriteInteger(EINI_SEC_WINDOWS, EINI_WIDTH,FrmMain.Width);
WriteInteger(EINI_SEC_WINDOWS, EINI_HEIGHT,FrmMain.HEIGHT);
end;
finally
IniFile.Free;
end;
end;
こんなコードをCommonInifile.pasとして使いまわしています。
|
