Browse Source

ADD: Show error message if libunrar not found

Alexander Koblov 11 years ago
parent
commit
d0602bc3db
1 changed files with 5 additions and 0 deletions
  1. 5 0
      plugins/wcx/unrar/src/unrarfunc.pas

+ 5 - 0
plugins/wcx/unrar/src/unrarfunc.pas

@@ -698,6 +698,11 @@ end;
 procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); dcpcall;
 procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); dcpcall;
 begin
 begin
   ExtensionStartupInfo := StartupInfo^;
   ExtensionStartupInfo := StartupInfo^;
+  if ModuleHandle = NilHandle then
+  begin
+    ExtensionStartupInfo.MessageBox('Cannot load library ' + _unrar + '! Please check your installation.',
+                                    nil, MB_OK or MB_ICONERROR);
+  end;
 end;
 end;
 
 
 finalization
 finalization