interbase安装程序制作

[xzhzh]

我用BCB＋INTERBASE写一个程序，但是不知如何打包发布

[erickleung]

原则上, interbase 只需要有 gds32.dll 或 firebird 用 (gds32.dll + fbclient.dll). 把他和你的程式一起发放便可以了.

和在客户端上的 services 加上 gds_db 3050/tcp便可以.

请叁看:

Var
s : String;
i : Integer;
b : Boolean;
Buf : PChar;
begin
With TRegistry.Create Do Try
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('SOFTWARE\Borland\InterBase\CurrentVersion', True) Then
If Not ValueExists('RootDirectory') Then
WriteString('RootDirectory', ExtractFilePath(ParamStr(0)));
Finally
Free;
End;
i := 255;
GetMem(Buf, i);
With TStringList.Create Do Try
If Win32Platform = VER_PLATFORM_WIN32_NT Then Begin
GetEnvironmentVariable(PChar('SystemRoot'), Buf, i);
s := Buf + '\System32\drivers\etc\services';
End Else Begin
GetEnvironmentVariable(PChar('WinDir'), Buf, i);
s := Buf + '\services';
End;
LoadFromFile(s);
b := True;
For i := 0 To Count-1 Do
If Copy(Strings[i], 1, 6) = 'gds_db' Then begin
b := False;
Break;
end;
If b Then Begin
Add('gds_db 3050/tcp # Borland InterBase Server');
SaveToFile(s);
End;
Finally
Free;
FreeMem(Buf);
End;

[xzhzh]

这段程序是干什么用的

[xzhzh]

在开发时与分发后的数据库的路径不一样如何设置

[yangxd]

恩，是那么回事，开发和分发就没有必要是一个路径啊，分发时设置不就ok啦。