Need a tool which changes the bde Paradox database net dir path ( to make bde windows 7 ready)

Hi,

I try to help a firm which has developed years ago a biofeedback software, which uses a bde database. Unfortunately the software does not work anymore in vista and windows 7.
The reason is, so far as I have found out, that first  in the registry the hklm/software/borland has not sufficiant permissions and second the net dir path needs to be changed from "C:\" to a different path.

So I wrote with inno setup a new installation script, which sets the permission. But I need a way to change the net dir path during installation. I have found code snippets for doing that, but I have no delphi compiler. I need a exe for changing the net dir path during installation to make the bde windows 7 and vista ready. I am only able to change the innosetup installation and not the application itself, because the programmers who have developed the biofeedback application, have left the firm years ago...

Is anyone out there who has a exe file for me, which I can use during installation for changing the net dir path of the bde database? Or someone who has an idea how to make the bde vista ready, so that the biofeedback application which uses the database is running on Vista and Windows, too?

{$APPTYPE CONSOLE} 
uses 
SysUtils, BDE; 
var 
hCur : hDBICur; 
Config : CFGDesc; 
begin 
if (ParamCount <> 1) or (DbiInit(nil) <> DBIERR_NONE) 
then Exit; 
hCur := nil; 
// Paradox 
if (DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent, 
'\DRIVERS\PARADOX\INIT', hCur) = DBIERR_NONE) and 
(DbiSetToBegin(hCur) = DBIERR_NONE) 
then 
while DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil) = 
DBIERR_NONE do 
begin 
if StrIComp(Config.szNodeName, 'NET DIR') = 0 
then 
begin 
StrCopy(Config.szValue, PChar(ParamStr(1))); 
DbiModifyRecord(hCur, @Config, true); 
end; 
end; 
DbiExit(); 
end.

Select allOpen in new window