| # | Line 176 | Line 176 | implementation | |
|---|---|---|
| 176 | ||
| 177 | uses Sysutils, IB, Dynlibs, Classes | |
| 178 | {$IFDEF WINDOWS} | |
| 179 | < | ,Forms, Registry |
| 179 | > | , Registry |
| 180 | {$ENDIF} | |
| 181 | ; | |
| 182 | ||
| # | Line 250 | Line 250 | procedure LoadIBLibrary; | |
| 250 | end; | |
| 251 | ||
| 252 | //First look for Firebird Embedded Server in installation dir | |
| 253 | < | InstallDir := ExtractFilePath(Application.ExeName); |
| 253 | > | InstallDir := ExtractFilePath(Paramstr(0)); {Using ParamStr(0) assumes windows conventions} |
| 254 | if FileExists(InstallDir + FIREBIRD_EMBEDDED) then | |
| 255 | begin | |
| 256 | dllPathName := InstallDir + FIREBIRD_EMBEDDED; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |