掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BDEの設定を変更するには？ (ID：37971)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさんの意見を参考しながら 自分でも、再度、調べたところ、 プログラムで設定できることができました。 下記の方法でできました。 uses BDE var hCur : hDBICur; Config : CFGDesc; ContinueIt: boolean; begin if (DbiInit(nil) = DBIERR_NONE) then begin hCur := nil; if (DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent, '\DRIVERS\PARADOX\INIT', hCur) = DBIERR_NONE) then begin if DbiSetToBegin(hCur) = DBIERR_NONE then begin ContinueIt := true; while ContinueIt do begin if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil) <> DBIERR_NONE) then begin ContinueIt := false end else if StrIComp(Config.szNodeName, 'NET DIR') = 0 then begin StrCopy(Config.szValue, 'C:\Users\Public\Documents'); DbiModifyRecord(hCur, @Config, true); ContinueIt := false end; end; end; end; DbiExit(); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.