この発言は
#00809　TERRY           さんのマルチユーザなIniFile
に対するコメントです



 #00809 こんにちは、TERRY さん。TERRYです(^-^)

Iniファイルが「C:\」とかにあったら「C:\\App.ini」になっちゃうんで(^^;
（それもFAQ？）


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


  private
    IniFileName:string;
    procedure IniRead;
procedure TForm1.FormCreate(Sender: TObject);
var
  Path:string;
begin
  Path:=GetCurrentDir;
  ShowMessage(Path);
  if not IsPathDelimiter(Path,length(Path)) then Path:=Path+'\';
  if FileExists(Path+ExtractFileName(ChangeFileExt(
    Application.ExeName,'.ini')))then
      IniFileName:=Path+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)99/05/21
                                            mailto:terry@post.co.jp


Original document by TERRY           氏 ID:(BQA00377)

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