[vfb]关于MSI文件只解压不安装的VFB项目源码

WeaponJang

保存为Form1.frm,放到该项目的forms文件夹下

1. #VisualFreeBasic_Form#  Version=5.5.8
   
2. Locked=0
   
3. 
   
4. [Form]
   
5. Name=Form1
   
6. ClassStyle=CS_VREDRAW,CS_HREDRAW,CS_DBLCLKS
   
7. ClassName=
   
8. WinStyle=WS_THICKFRAME,WS_CAPTION,WS_SYSMENU,WS_MINIMIZEBOX,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_VISIBLE,WS_EX_WINDOWEDGE,WS_EX_CONTROLPARENT,WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_POPUP,WS_SIZEBOX
   
9. Style=3 - 常规窗口
   
10. Icon=
    
11. Caption=MSI文件解压助手
    
12. StartPosition=1 - 屏幕中心
    
13. WindowState=0 - 正常
    
14. Enabled=True
    
15. Repeat=False
    
16. Left=0
    
17. Top=0
    
18. Width=420
    
19. Height=186
    
20. TopMost=False
    
21. Child=False
    
22. MdiChild=False
    
23. TitleBar=True
    
24. SizeBox=True
    
25. SysMenu=True
    
26. MaximizeBox=False
    
27. MinimizeBox=True
    
28. Help=False
    
29. Hscroll=False
    
30. Vscroll=False
    
31. MinWidth=0
    
32. MinHeight=0
    
33. MaxWidth=0
    
34. MaxHeight=0
    
35. NoActivate=False
    
36. MousePass=False
    
37. TransPer=0
    
38. TransColor=SYS,25
    
39. Shadow=0 - 无阴影
    
40. BackColor=SYS,15
    
41. MousePointer=0 - 默认
    
42. Tag=
    
43. Tab=True
    
44. ToolTip=
    
45. ToolTipBalloon=False
    
46. AcceptFiles=False
    
47. 
    
48. [TextBox]
    
49. Name=Text1
    
50. Index=-1
    
51. Style=3 - 凹边框
    
52. TextScrollBars=0 - 无滚动条
    
53. Text=此处显示路径
    
54. Enabled=False
    
55. Visible=True
    
56. MaxLength=0
    
57. ForeColor=SYS,8
    
58. BackColor=SYS,5
    
59. Font=微软雅黑,9,0
    
60. TextAlign=0 - 左对齐
    
61. PasswordChar=
    
62. Locked=False
    
63. HideSelection=True
    
64. Multiline=False
    
65. Uppercase=False
    
66. Lowercase=False
    
67. Number=False
    
68. AutoHScroll=True
    
69. AutoVScroll=False
    
70. Left=32
    
71. Top=17
    
72. Width=340
    
73. Height=27
    
74. Layout=0 - 不锚定
    
75. MousePointer=0 - 默认
    
76. Tag=
    
77. Tab=True
    
78. ToolTip=
    
79. ToolTipBalloon=False
    
80. LeftMargin=0
    
81. RightMargin=0
    
82. AcceptFiles=False
    
83. 
    
84. [Button]
    
85. Name=Command1
    
86. Index=-1
    
87. Caption=选择文件
    
88. TextAlign=1 - 居中
    
89. Ico=
    
90. Enabled=True
    
91. Visible=True
    
92. Default=False
    
93. OwnDraw=False
    
94. MultiLine=False
    
95. Font=微软雅黑,9,0
    
96. Left=32
    
97. Top=70
    
98. Width=60
    
99. Height=50
    
100. Layout=0 - 不锚定
     
101. MousePointer=0 - 默认
     
102. Tag=
     
103. Tab=True
     
104. ToolTip=
     
105. ToolTipBalloon=False
     
106. 
     
107. [Button]
     
108. Name=Command2
     
109. Index=-1
     
110. Caption=解压
     
111. TextAlign=1 - 居中
     
112. Ico=
     
113. Enabled=True
     
114. Visible=True
     
115. Default=False
     
116. OwnDraw=False
     
117. MultiLine=False
     
118. Font=微软雅黑,9,0
     
119. Left=312
     
120. Top=70
     
121. Width=60
     
122. Height=50
     
123. Layout=0 - 不锚定
     
124. MousePointer=0 - 默认
     
125. Tag=
     
126. Tab=True
     
127. ToolTip=
     
128. ToolTipBalloon=False
     
129. 
     
130. 
     
131. [AllCode]
     
132. Sub Form1_Command1_BN_Clicked(hWndForm As hWnd ,hWndControl As hWnd) '单击
     
133.    Dim As String MsiFilename = FF_OpenFileDialog(hWndForm ,"msi" , ,ExePath ,"Windows安装程序(*.msi)|*.msi" , ,0 ,1)
     
134.    Text1.Text = MsiFilename
     
135.    Dim As Integer SpaceStr = InStr(MsiFilename ," ")
     
136.    If SpaceStr > 0 Then
     
137.       Text1.Text = """" & MsiFilename & """"
     
138.    End If
     
139.    If MsiFilename <> "" Then
     
140.       Command2.Enabled = True
     
141.    Else
     
142.       Command2.Enabled = False
     
143.    End If
     
144.    
     
145. End Sub
     
146. 
     
147. Sub Form1_Command2_BN_Clicked(hWndForm As hWnd ,hWndControl As hWnd) '单击
     
148.    Dim As String npath = Text1.Text
     
149.    If Left(npath ,1) = """" Then
     
150.       npath = Left(npath ,InStrRev(npath ,".msi")-1) & """"
     
151.    Else
     
152.       npath = Left(npath ,InStrRev(npath ,".msi")-1)
     
153.    End If
     
154.    'MsgBox npath
     
155.    Exec("C:\Windows\System32\msiexec.exe" ,"/a " & Text1.Text & " /qn+ TARGETDIR=" & npath)
     
156.    Command2.Enabled = False
     
157. End Sub
     
158. 
     
159. Sub Form1_Shown(hWndForm As hWnd ,UserData As Integer) '窗口完全显示后。UserData 来自显示窗口最后1个参数。
     
160.    Command2.Enabled = False
     
161. End Sub

复制代码

0xAA55

这是啥？能给个更详细的解释吗？

系统消息

0xAA55 发表于 2021-6-18 07:47
这是啥？能给个更详细的解释吗？

看起来像是不走安装直接解包提取msi目标安装的文件，以前我用过系统自带的命令行提取过，看样子楼猪这个方式就是GUI调系统的msi解包命令。

WeaponJang

系统消息 发表于 2021-6-18 09:53
看起来像是不走安装直接解包提取msi目标安装的文件，以前我用过系统自带的命令行提取过，看样子楼猪这个 ...

是的,你说对了.敲命令太累了,鼠标点一点舒服多了,而且用这个可以防止空格路径忘记加引号

0xAA55

WeaponJang 发表于 2021-6-19 14:11
是的,你说对了.敲命令太累了,鼠标点一点舒服多了,而且用这个可以防止空格路径忘记加引号 ...

原来如此。但主要是你直接把VFB的frm内容放上来了，很多信息都是我觉得没必要需要的，就跳过不看了。

WeaponJang

0xAA55 发表于 2021-6-20 18:13
原来如此。但主要是你直接把VFB的frm内容放上来了，很多信息都是我觉得没必要需要的，就跳过不看了。 ...

代码逻辑只要看[Allcode]里的就行了,其他都是UI方面的

Ayala

WeaponJang 发表于 2021-6-19 14:11
是的,你说对了.敲命令太累了,鼠标点一点舒服多了,而且用这个可以防止空格路径忘记加引号 ...

直接注册表里添加一个右键命令更省事吧

WeaponJang

Ayala 发表于 2021-6-21 22:26
直接注册表里添加一个右键命令更省事吧

怎么添加,我百度找了一圈没找到怎么弄这个MSI右键解压

Ayala

WeaponJang 发表于 2021-6-23 21:19
怎么添加,我百度找了一圈没找到怎么弄这个MSI右键解压

1. 
   
2. 
   
3. Windows Registry Editor Version 5.00
   
4. 
   
5. [HKEY_CLASSES_ROOT\*\shell\msiexec]
   
6. @="解压msi文件"
   
7. 
   
8. [HKEY_CLASSES_ROOT\*\shell\msiexec\command]
   
9. @="cmd /k C:\\Windows\\System32\\msiexec.exe /a "%1" /qn+ TARGETDIR=c:\\temp & cmd /k start c:\\temp"
   

复制代码

WeaponJang

Ayala 发表于 2021-6-25 21:28

这样会不会更好点

1. 
   
2. Windows Registry Editor Version 5.00
   
3. 
   
4. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Msi.Package\shell\unpack]
   
5. @="解压msi文件"
   
6. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Msi.Package\shell\unpack\command]
   
7. @="cmd.exe /c C:\\Windows\\System32\\msiexec.exe /a "%1" /qn+ TARGETDIR=c:\\msitemp && start c:\\msitemp"
   

复制代码

系统消息

Ayala 发表于 2021-6-25 21:28
[code]

Windows Registry Editor Version 5.00

C:\Temp 建议换成 %Temp%，C盘下分User目录你没有狗管理权限无法写入。
另外用户的系统不一定在C盘，请用 %SystemRoot% 环境变量获取正确的Windows目录路径。

Ayala

系统消息 发表于 2021-6-28 09:49
C:\Temp 建议换成 %Temp%，C盘下分User目录你没有狗管理权限无法写入。
另外用户的系统不一定在C盘，请用 ...

那么注册表里怎么引用系统变量呢？

Ayala

系统消息 发表于 2021-6-28 09:49
C:\Temp 建议换成 %Temp%，C盘下分User目录你没有狗管理权限无法写入。
另外用户的系统不一定在C盘，请用 ...

原来 需要REG_EXPAND_SZ 类型才行 困扰了很多年的问题

系统消息

Ayala 发表于 2021-7-1 22:02
原来 需要REG_EXPAND_SZ 类型才行 困扰了很多年的问题

对，我也是研究了很久才发现的

WeaponJang

系统消息 发表于 2021-7-2 09:59
对，我也是研究了很久才发现的

看来您是注册表老手了,有考虑写个你趟注册表的坑的心得吗?

系统消息

WeaponJang 发表于 2021-7-3 13:08
看来您是注册表老手了,有考虑写个你趟注册表的坑的心得吗?

也没啥特别的心得，就是被REG_SZ和REG_EXPAND_SZ的区别坑过