高手来拿分(100分)

如何用程序的方法(不从控制面板中)更改BDE中Paradox数据库的NetDir属性值.

use session
write the alias
look up in help files

不好意思，白捡得分还是再捡一次吧，谁让我一上来就看见这个问题呢？

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=322888
答案：Session.NetFileDir:='xxxxxx'

To温柔一刀:
不好意思，我的意思是必须保存。您这种方法不能保存，请问怎么才能保存，谢谢！

哦，还是很容易，不过你没有问清楚罢了。

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
ContinueIt := false
else
if StrIComp(Config.szNodeName, 'NET DIR') = 0 then
begin
StrCopy(Config.szValue, 'C:/NewDir');
DbiModifyRecord(hCur, @Config, true);
ContinueIt := false
end;
end;
end;
end;
DbiExit();
end;
end;

历害！ ：）

to 温柔一刀:
make sure that: use bde

look in bde.hlp
there are lots of useful functions

Oh, it makes me feel you are acting as a super expert in delphi

多人接受答案了。

to 温柔一刀:
你这一刀可不温柔（开玩笑)

对不起，主要是我觉得你那段话比我这一刀可生硬多了