tsl

更新动态库

funcext/tvclib/utslvcl_com.tsf

@@ -69,7 +69,11 @@ type t_com_class = class()
     begin
         return 0;
     end 
-    function install_for_all_users(); //是否安装到本地为所有人使用
+    function install_check();virtual; //安装前检查
+    begin
+        return true;
+    end 
+    function install_for_all_users();virtual; //是否安装到本地为所有人使用
     begin
         return false;
     end     
@@ -81,7 +85,6 @@ type t_com_class = class()
     begin
         for i:= 0 to sysparamcount() do 
         begin
-            //"-Embedding") == 0) || (_stricmp(lpCmdLine, "/Embedding"
             si := sysparamstr(i);
             if si="-Embedding" or si= "/Embedding" then 
             begin
@@ -120,6 +123,11 @@ type t_com_class = class()
     end 
     function do_install_sub();
     begin
+        if not install_check() then 
+        begin
+            echo "提示：安装检查失败。\r\n";
+            return ;
+        end 
         dllclsid := get_clsid();
         subid := "LocalServer32";
         comname := get_com_name();
@@ -151,12 +159,12 @@ type t_com_class = class()
         end  
         install_success();
     end 
-    function get_classes_key();
+    function get_classes_key(); //
     begin
-        if install_for_all_users() then
+        if install_for_all_users() then //安装到本机
         begin
             rk :=  new TRegKey(class(TRegKey).HKEY_LOCAL_MACHINE); 
-        end else 
+        end else  //安装到当前用户
         begin  
             rk :=  new TRegKey(class(TRegKey).HKEY_CURRENT_USER);
         end