فهرست منبع

ADD: Show error message if libunrar not found

Alexander Koblov 11 سال پیش
والد
کامیت
d0602bc3db
1فایلهای تغییر یافته به همراه5 افزوده شده و 0 حذف شده
  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