この発言に対し以下のコメントが寄せられています

#00874　TERRY           さん　RE:マルチユーザなIniFile




石ころを一つ(^-^)


{レジストリは使いたくないけれどマルチユーザに対応したいとき、
作業（実行時）フォルダをショートカットアイコンなどでユーザに指定してもらう。
実行ファイルは共通フォルダに一つです(^^;
usesに　IniFilesを追加。}


  private
    IniFileName:string;
    procedure IniRead;
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists(GetCurrentDir+'\'+ExtractFileName(
    ChangeFileExt(Application.ExeName,'.ini')))then
      IniFileName:=GetCurrentDir+'\'+ExtractFileName(
        ChangeFileExt(Application.ExeName,'.ini'))else
          IniFileName:=ChangeFileExt(Application.ExeName,'.ini');
    IniRead;
end;

procedure TForm1.IniRead;
begin
  if FileExists(IniFileName)then
  begin
    with TiniFile.Create(IniFileName) do
    begin
      try
      finally
        Free;
      end;
    end;
  end;
end;

end.

                         ◆Kenneth Teriard◆TERRY(BQA00377)1999/02/06
                                              e-mail:terry@post.co.jp


Original document by TERRY           氏 ID:(BQA00377)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。