mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correctly locate the dll

Browse Source
This commit is contained in:
ronaldhordijk 2005-09-03 11:18:54 +00:00
parent 51736cc395
commit a96726e8db
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
2.10/Source/bmdll32.PAS
View File

@ -476,6 +476,9 @@ var
implementation implementation
uses
SysUtils;
var var
SaveExit: pointer; SaveExit: pointer;
DLLHandle: THandle; DLLHandle: THandle;
@ -495,9 +498,11 @@ begin
{$IFNDEF MSDOS} {$IFNDEF MSDOS}
ErrorMode := SetErrorMode($8000{SEM_NoOpenFileErrorBox}); ErrorMode := SetErrorMode($8000{SEM_NoOpenFileErrorBox});
{$ENDIF} {$ENDIF}
// DLLHandle := LoadLibrary('bmdll32.DLL'); DLLHandle := LoadLibrary('bmdll32.DLL');
// if DLLHandle < 32 then if DLLHandle < 32 then
DLLHandle := LoadLibrary('C:\brainm.20a\bmdll32.DLL'); DLLHandle := LoadLibrary('C:\brainm.20\bmdll32.DLL');
if DLLHandle < 32 then
DLLHandle := LoadLibrary(Pchar(IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + '..\bmdll32.DLL'));
if DLLHandle >= 32 then begin if DLLHandle >= 32 then begin
DLLLoaded := True; DLLLoaded := True;