Răsfoiți Sursa

ADD: Show error message if libunrar not found

Alexander Koblov 11 ani în urmă
părinte
comite
d0602bc3db
1 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  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;
 begin
   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;
 
 finalization