Browse Source

ADD: Show error message if libunrar not found

Alexander Koblov 11 năm trước cách đây
mục cha
commit
d0602bc3db
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  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