소스 검색

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