名前
題名
▼ たてぐや@ガリガリ中さん > ▼ 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として使いまわしています。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link