VBoxGuestAdditionsCommon.nsh@ 106854

Last change on this file since 106854 was 106849, checked in by vboxsync, 5 months ago
Add/Nt/Installer: scm fixes. jiraref:VBP-1253
Property svn:eol-style set to `native` Property svn:keywords set to `Id Revision`
File size: 25.1 KB

Line
1	; $Id: VBoxGuestAdditionsCommon.nsh 106849 2024-11-06 09:15:37Z vboxsync $
2	;; @file
3	; VBoxGuestAdditionsCommon.nsh - Common / shared utility functions.
4	;
5
6	;
7	; Copyright (C) 2006-2024 Oracle and/or its affiliates.
8	;
9	; This file is part of VirtualBox base platform packages, as
10	; available from https://www.virtualbox.org.
11	;
12	; This program is free software; you can redistribute it and/or
13	; modify it under the terms of the GNU General Public License
14	; as published by the Free Software Foundation, in version 3 of the
15	; License.
16	;
17	; This program is distributed in the hope that it will be useful, but
18	; WITHOUT ANY WARRANTY; without even the implied warranty of
19	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20	; General Public License for more details.
21	;
22	; You should have received a copy of the GNU General Public License
23	; along with this program; if not, see <https://www.gnu.org/licenses>.
24	;
25	; SPDX-License-Identifier: GPL-3.0-only
26	;
27
28
29	!macro Common_CleanupObsoleteFiles un
30	;;
31	; Removes common files we're no longer shipping.
32	;
33	; During installation this step should be taken before copy files over in case
34	; the list gets out of sync and we start shipping files on it. That way it
35	; doesn't much matter as the file will be restore afterwards.
36	;
37	Function ${un}Common_CleanupObsoleteFiles
38	Delete /REBOOTOK "$INSTDIR\iexplore.ico" ; Removed in r153662.
39	FunctionEnd
40	!macroend
41	!insertmacro Common_CleanupObsoleteFiles ""
42	!ifdef UNINSTALLER_ONLY
43	!insertmacro Common_CleanupObsoleteFiles "un."
44	!else ifndef VBOX_SIGN_ADDITIONS
45	!insertmacro Common_CleanupObsoleteFiles "un."
46	!endif
47
48	Function Common_CopyFiles
49
50	SetOutPath "$INSTDIR"
51	SetOverwrite on
52
53	!ifdef VBOX_WITH_LICENSE_INSTALL_RTF
54	; Copy license file (if any) into the installation directory
55	FILE "/oname=${LICENSE_FILE_RTF}" "$%VBOX_BRAND_LICENSE_RTF%"
56	!endif
57
58	FILE "$%PATH_OUT%\bin\additions\VBoxDrvInst.exe"
59
60	!if $%KBUILD_TARGET_ARCH% != "arm64" ;; @todo win.arm64: Make VBoxVideo and friends build on arm.
61	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.inf"
62	!if $%KBUILD_TARGET_ARCH% == "x86"
63	${If} $g_strEarlyNTDrvInfix != ""
64	FILE "$%PATH_OUT%\bin\additions\VBoxVideoEarlyNT.inf"
65	!ifdef VBOX_SIGN_ADDITIONS
66	FILE "$%PATH_OUT%\bin\additions\VBoxVideoEarlyNT.cat"
67	!endif
68	${EndIf}
69	!endif
70	!ifdef VBOX_SIGN_ADDITIONS
71	!if $%KBUILD_TARGET_ARCH% == "arm64"
72	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.cat"
73	!else
74	${If} $g_strWinVersion == "10"
75	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.cat"
76	${Else}
77	FILE "/oname=VBoxVideo.cat" "$%PATH_OUT%\bin\additions\VBoxVideo-PreW10.cat"
78	${EndIf}
79	!endif
80	!endif
81	!endif ; $%KBUILD_TARGET_ARCH% != "arm64"
82
83	FunctionEnd
84
85	!ifndef UNINSTALLER_ONLY
86	;;
87	; Extract files to the install dir + arch.
88	;
89	Function ExtractFiles
90
91	; @todo: Use a define for all the file specs to group the files per module
92	; and keep the redundancy low
93
94	Push $0
95	StrCpy "$0" "$INSTDIR\$%KBUILD_TARGET_ARCH%"
96
97	; Root files
98	SetOutPath "$0"
99	!if $%VBOX_WITH_LICENSE_INSTALL_RTF% == "1"
100	FILE "/oname=${LICENSE_FILE_RTF}" "$%VBOX_BRAND_LICENSE_RTF%"
101	!endif
102
103	!if $%KBUILD_TARGET_ARCH% != "arm64" ;; @todo win.arm64: Make VBoxVideo and friends build on arm.
104	; Video driver
105	SetOutPath "$0\VBoxVideo"
106	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.sys"
107	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.inf"
108	!if $%KBUILD_TARGET_ARCH% == "x86"
109	${If} $g_strEarlyNTDrvInfix != ""
110	FILE "$%PATH_OUT%\bin\additions\VBoxVideoEarlyNT.inf"
111	!ifdef VBOX_SIGN_ADDITIONS
112	FILE "$%PATH_OUT%\bin\additions\VBoxVideoEarlyNT.cat"
113	!endif
114	${EndIf}
115	!endif
116	!ifdef VBOX_SIGN_ADDITIONS
117	!if $%KBUILD_TARGET_ARCH% == "arm64"
118	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.cat"
119	!else
120	${If} $g_strWinVersion == "10"
121	FILE "$%PATH_OUT%\bin\additions\VBoxVideo.cat"
122	${Else}
123	FILE "/oname=VBoxVideo.cat" "$%PATH_OUT%\bin\additions\VBoxVideo-PreW10.cat"
124	${EndIf}
125	!endif
126	!endif
127	FILE "$%PATH_OUT%\bin\additions\VBoxDisp.dll"
128	!endif ; $%KBUILD_TARGET_ARCH% != "arm64"
129
130	!if $%VBOX_WITH_WDDM% == "1"
131	; WDDM Video driver
132	SetOutPath "$0\VBoxWddm"
133
134	!ifdef VBOX_SIGN_ADDITIONS
135	!if $%KBUILD_TARGET_ARCH% == "arm64"
136	FILE "$%PATH_OUT%\bin\additions\VBoxWddm.cat"
137	!else
138	${If} $g_strWinVersion == "10"
139	FILE "$%PATH_OUT%\bin\additions\VBoxWddm.cat"
140	${Else}
141	FILE "/oname=VBoxWddm.cat" "$%PATH_OUT%\bin\additions\VBoxWddm-PreW10.cat"
142	${EndIf}
143	!endif
144	!endif
145	FILE "$%PATH_OUT%\bin\additions\VBoxWddm.sys"
146	FILE "$%PATH_OUT%\bin\additions\VBoxWddm.inf"
147	FILE "$%PATH_OUT%\bin\additions\VBoxDispD3D.dll"
148	!if $%VBOX_WITH_WDDM_DX% == "1"
149	FILE "$%PATH_OUT%\bin\additions\VBoxDX.dll"
150	!endif
151	!if $%VBOX_WITH_MESA3D% == "1"
152	FILE "$%PATH_OUT%\bin\additions\VBoxNine.dll"
153	FILE "$%PATH_OUT%\bin\additions\VBoxSVGA.dll"
154	FILE "$%PATH_OUT%\bin\additions\VBoxGL.dll"
155	!endif
156
157	!if $%KBUILD_TARGET_ARCH% == "amd64"
158	FILE "$%PATH_OUT%\bin\additions\VBoxDispD3D-x86.dll"
159	!if $%VBOX_WITH_WDDM_DX% == "1"
160	FILE "$%PATH_OUT%\bin\additions\VBoxDX-x86.dll"
161	!endif
162	!if $%VBOX_WITH_MESA3D% == "1"
163	FILE "$%PATH_OUT%\bin\additions\VBoxNine-x86.dll"
164	FILE "$%PATH_OUT%\bin\additions\VBoxSVGA-x86.dll"
165	FILE "$%PATH_OUT%\bin\additions\VBoxGL-x86.dll"
166	!endif
167
168	!endif ; $%KBUILD_TARGET_ARCH% == "amd64"
169	!endif ; $%VBOX_WITH_WDDM% == "1"
170
171	; Mouse driver
172	SetOutPath "$0\VBoxMouse"
173	FILE "$%PATH_OUT%\bin\additions\VBoxMouse.sys"
174	FILE "$%PATH_OUT%\bin\additions\VBoxMouse.inf"
175	!ifdef VBOX_SIGN_ADDITIONS
176	!if $%KBUILD_TARGET_ARCH% == "arm64"
177	FILE "$%PATH_OUT%\bin\additions\VBoxMouse.cat"
178	!else
179	${If} $g_strWinVersion == "10"
180	FILE "$%PATH_OUT%\bin\additions\VBoxMouse.cat"
181	${Else}
182	FILE "/oname=VBoxMouse.cat" "$%PATH_OUT%\bin\additions\VBoxMouse-PreW10.cat"
183	${EndIf}
184	!endif
185	!endif
186
187	!if $%KBUILD_TARGET_ARCH% == "x86"
188	SetOutPath "$0\VBoxMouse\NT4"
189	FILE "$%PATH_OUT%\bin\additions\VBoxMouseNT.sys"
190	!endif
191
192	; Guest driver
193	SetOutPath "$0\VBoxGuest"
194	FILE "$%PATH_OUT%\bin\additions\VBoxGuest.sys"
195	FILE "$%PATH_OUT%\bin\additions\VBoxGuest.inf"
196	!if $%KBUILD_TARGET_ARCH% == "x86"
197	${If} $g_strEarlyNTDrvInfix != ""
198	FILE "$%PATH_OUT%\bin\additions\VBoxGuestEarlyNT.inf"
199	!ifdef VBOX_SIGN_ADDITIONS
200	FILE "$%PATH_OUT%\bin\additions\VBoxGuestEarlyNT.cat"
201	!endif
202	${EndIf}
203	!endif
204	!ifdef VBOX_SIGN_ADDITIONS
205	!if $%KBUILD_TARGET_ARCH% == "arm64"
206	FILE "$%PATH_OUT%\bin\additions\VBoxGuest.cat"
207	!else
208	${If} $g_strWinVersion == "10"
209	FILE "$%PATH_OUT%\bin\additions\VBoxGuest.cat"
210	${Else}
211	FILE "/oname=VBoxGuest.cat" "$%PATH_OUT%\bin\additions\VBoxGuest-PreW10.cat"
212	${EndIf}
213	!endif
214	!endif
215	FILE "$%PATH_OUT%\bin\additions\VBoxTray.exe"
216	FILE "$%PATH_OUT%\bin\additions\VBoxHook.dll"
217	FILE "$%PATH_OUT%\bin\additions\VBoxControl.exe"
218
219	; VBoxService
220	SetOutPath "$0\Bin"
221	FILE "$%PATH_OUT%\bin\additions\VBoxService.exe"
222
223	; Shared Folders
224	SetOutPath "$0\VBoxSF"
225	FILE "$%PATH_OUT%\bin\additions\VBoxSF.sys"
226	FILE "$%PATH_OUT%\bin\additions\VBoxMRXNP.dll"
227	!if $%KBUILD_TARGET_ARCH% == "amd64"
228	; Only 64-bit installer: Also copy 32-bit DLLs on 64-bit target
229	FILE "$%PATH_OUT%\bin\additions\VBoxMRXNP-x86.dll"
230	!endif
231
232	; Auto-Logon
233	SetOutPath "$0\AutoLogon"
234	FILE "$%PATH_OUT%\bin\additions\VBoxGINA.dll"
235	FILE "$%PATH_OUT%\bin\additions\VBoxCredProv.dll"
236
237	; Misc tools
238	SetOutPath "$0\Tools"
239	FILE "$%PATH_OUT%\bin\additions\VBoxDrvInst.exe"
240	!ifdef VBOX_WITH_ADDITIONS_SHIPPING_AUDIO_TEST
241	FILE "$%PATH_OUT%\bin\additions\VBoxAudioTest.exe"
242	!endif
243
244	!if $%KBUILD_TARGET_ARCH% == "x86"
245	SetOutPath "$0\Tools\NT4"
246	FILE "$%PATH_OUT%\bin\additions\RegCleanup.exe"
247	!endif
248
249	Pop $0
250
251	FunctionEnd
252	!endif ; UNINSTALLER_ONLY
253
254	;
255	; Macro for retrieving the Windows version this installer is running on.
256	;
257	; @return Stack: Windows version string. Empty on error /
258	; if not able to identify.
259	;
260	!macro GetWindowsVersionEx un
261	Function ${un}GetWindowsVersionEx
262
263	Push $0
264	Push $1
265
266	; Check if we are running on Windows 2000 or above
267	; For other windows versions (> XP) it may be necessary to change winver.nsh
268	Call ${un}GetWindowsVersion
269	Pop $0 ; Windows Version
270
271	Push $0 ; The windows version string
272	Push "NT" ; String to search for. W2K+ returns no string containing "NT"
273	Call ${un}StrStr
274	Pop $1
275
276	${If} $1 == "" ; If empty -> not NT 3.XX or 4.XX
277	; $0 contains the original version string
278	${Else}
279	; Ok we know it is NT. Must be a string like NT X.XX
280	Push $0 ; The windows version string
281	Push "4." ; String to search for
282	Call ${un}StrStr
283	Pop $1
284	${If} $1 == "" ; If empty -> not NT 4
285	;; @todo NT <= 3.x ?
286	; $0 contains the original version string
287	${Else}
288	StrCpy $0 "NT4"
289	${EndIf}
290	${EndIf}
291
292	Pop $1
293	Exch $0
294
295	FunctionEnd
296	!macroend
297	!ifndef UNINSTALLER_ONLY
298	!insertmacro GetWindowsVersionEx ""
299	!endif
300	!insertmacro GetWindowsVersionEx "un."
301
302	!ifndef UNINSTALLER_ONLY
303	!macro GetAdditionsVersion un
304	Function ${un}GetAdditionsVersion
305
306	Push $0
307	Push $1
308
309	; Get additions version
310	ReadRegStr $0 HKLM "SOFTWARE\$%VBOX_VENDOR_SHORT%\VirtualBox Guest Additions" "Version"
311
312	; Get revision
313	ReadRegStr $g_strAddVerRev HKLM "SOFTWARE\$%VBOX_VENDOR_SHORT%\VirtualBox Guest Additions" "Revision"
314
315	; Extract major version
316	Push "$0" ; String
317	Push "." ; SubString
318	Push ">" ; SearchDirection
319	Push "<" ; StrInclusionDirection
320	Push "0" ; IncludeSubString
321	Push "0" ; Loops
322	Push "0" ; CaseSensitive
323	Call ${un}StrStrAdv
324	Pop $g_strAddVerMaj
325
326	; Extract minor version
327	Push "$0" ; String
328	Push "." ; SubString
329	Push ">" ; SearchDirection
330	Push ">" ; StrInclusionDirection
331	Push "0" ; IncludeSubString
332	Push "0" ; Loops
333	Push "0" ; CaseSensitive
334	Call ${un}StrStrAdv
335	Pop $1 ; Got first part (e.g. "1.5")
336
337	Push "$1" ; String
338	Push "." ; SubString
339	Push ">" ; SearchDirection
340	Push "<" ; StrInclusionDirection
341	Push "0" ; IncludeSubString
342	Push "0" ; Loops
343	Push "0" ; CaseSensitive
344	Call ${un}StrStrAdv
345	Pop $g_strAddVerMin ; Extracted second part (e.g. "5" from "1.5")
346
347	; Extract build number
348	Push "$0" ; String
349	Push "." ; SubString
350	Push "<" ; SearchDirection
351	Push ">" ; StrInclusionDirection
352	Push "0" ; IncludeSubString
353	Push "0" ; Loops
354	Push "0" ; CaseSensitive
355	Call ${un}StrStrAdv
356	Pop $g_strAddVerBuild
357
358	Pop $1
359	Pop $0
360
361	FunctionEnd
362	!macroend
363	!insertmacro GetAdditionsVersion ""
364	; !insertmacro GetAdditionsVersion "un." - not used.
365	!endif ; UNINSTALLER_ONLY
366
367	!macro StopVBoxService un
368	Function ${un}StopVBoxService
369
370	Push $0 ; Temp results
371	Push $1
372	Push $2 ; Image name of VBoxService
373	Push $3 ; Safety counter
374
375	StrCpy $3 "0" ; Init counter
376	${LogVerbose} "Stopping VBoxService ..."
377
378	${LogVerbose} "Stopping VBoxService via SCM ..."
379	${If} $g_strWinVersion == "NT4"
380	nsExec::Exec '"$SYSDIR\net.exe" stop VBoxService'
381	${Else}
382	nsExec::Exec '"$SYSDIR\sc.exe" stop VBoxService'
383	${EndIf}
384	Sleep "1000" ; Wait a bit
385
386	!ifdef _DEBUG
387	${LogVerbose} "Stopping VBoxService (as exe) ..."
388	!endif
389
390	exe_stop_loop:
391
392	IntCmp $3 10 exit ; Only try this loop 10 times max
393	IntOp $3 $3 + 1 ; Increment
394
395	!ifdef _DEBUG
396	${LogVerbose} "Stopping attempt #$3"
397	!endif
398
399	StrCpy $2 "VBoxService.exe"
400
401	${nsProcess::FindProcess} $2 $0
402	StrCmp $0 0 0 exit
403
404	${nsProcess::KillProcess} $2 $0
405	Sleep "1000" ; Wait a bit
406	Goto exe_stop_loop
407
408	exit:
409
410	${LogVerbose} "Stopping VBoxService done"
411
412	Pop $3
413	Pop $2
414	Pop $1
415	Pop $0
416
417	FunctionEnd
418	!macroend
419	!insertmacro StopVBoxService ""
420	!insertmacro StopVBoxService "un."
421
422	!macro StopVBoxTray un
423	Function ${un}StopVBoxTray
424
425	Push $0 ; Temp results
426	Push $1 ; Safety counter
427
428	StrCpy $1 "0" ; Init counter
429	${LogVerbose} "Stopping VBoxTray ..."
430
431	exe_stop:
432
433	IntCmp $1 10 exit ; Only try this loop 10 times max
434	IntOp $1 $1 + 1 ; Increment
435
436	${nsProcess::FindProcess} "VBoxTray.exe" $0
437	StrCmp $0 0 0 exit
438
439	${nsProcess::KillProcess} "VBoxTray.exe" $0
440	Sleep "1000" ; Wait a bit
441	Goto exe_stop
442
443	exit:
444
445	${LogVerbose} "Stopping VBoxTray done"
446
447	Pop $1
448	Pop $0
449
450	FunctionEnd
451	!macroend
452	!insertmacro StopVBoxTray ""
453	!insertmacro StopVBoxTray "un."
454
455	!macro StopVBoxMMR un
456	Function ${un}StopVBoxMMR
457
458	Push $0 ; Temp results
459	Push $1 ; Safety counter
460
461	StrCpy $1 "0" ; Init counter
462	DetailPrint "Stopping VBoxMMR ..."
463
464	exe_stop:
465
466	IntCmp $1 10 exit ; Only try this loop 10 times max
467	IntOp $1 $1 + 1 ; Increment
468
469	${nsProcess::FindProcess} "VBoxMMR.exe" $0
470	StrCmp $0 0 0 exit
471
472	${nsProcess::KillProcess} "VBoxMMR.exe" $0
473	Sleep "1000" ; Wait a bit
474	Goto exe_stop
475
476	exit:
477
478	DetailPrint "Stopping VBoxMMR done."
479
480	Pop $1
481	Pop $0
482
483	FunctionEnd
484	!macroend
485	!insertmacro StopVBoxMMR ""
486	!insertmacro StopVBoxMMR "un."
487
488	!macro WriteRegBinR ROOT KEY NAME VALUE
489	WriteRegBin "${ROOT}" "${KEY}" "${NAME}" "${VALUE}"
490	!macroend
491
492	!ifdef UNUSED_CODE ; Only used by unused Uninstall_RunExtUnInstaller function in VBoxguestAdditionsUninstallOld.nsh.
493	!macro AbortShutdown un
494	Function ${un}AbortShutdown
495
496	${If} ${FileExists} "$g_strSystemDir\shutdown.exe"
497	; Try to abort the shutdown
498	${CmdExecute} "$\"$g_strSystemDir\shutdown.exe$\" -a" 'non-zero-exitcode=log'
499	${Else}
500	${LogVerbose} "Shutting down not supported: Binary $\"$g_strSystemDir\shutdown.exe$\" not found"
501	${EndIf}
502
503	FunctionEnd
504	!macroend
505	!insertmacro AbortShutdown ""
506	!insertmacro AbortShutdown "un."
507	!endif ; UNUSED_CODE
508
509	;;
510	; Sets $g_bCapDllCache, $g_bCapXPDM, $g_bWithWDDM and $g_bCapWDDM.
511	;
512	!macro CheckForCapabilities un
513	Function ${un}CheckForCapabilities
514
515	Push $0
516
517	; Retrieve system mode and store result in
518	System::Call 'user32::GetSystemMetrics(i ${SM_CLEANBOOT}) i .r0'
519	StrCpy $g_iSystemMode $0
520
521	; Does the guest have a DLL cache?
522	${If} $g_strWinVersion == "NT4" ; bird: NT4 doesn't have a DLL cache, WTP is 5.0 <= NtVersion < 6.0.
523	${OrIf} $g_strWinVersion == "2000"
524	${OrIf} $g_strWinVersion == "XP"
525	StrCpy $g_bCapDllCache "true"
526	${LogVerbose} "OS has a DLL cache"
527	${EndIf}
528
529	${If} $g_strWinVersion == "2000"
530	${OrIf} $g_strWinVersion == "XP"
531	${OrIf} $g_strWinVersion == "2003"
532	${OrIf} $g_strWinVersion == "Vista"
533	${OrIf} $g_strWinVersion == "7"
534	StrCpy $g_bCapXPDM "true"
535	${LogVerbose} "OS is XPDM driver capable"
536	${EndIf}
537
538	!if $%VBOX_WITH_WDDM% == "1"
539	; By default use the WDDM driver on Vista+
540	${If} $g_strWinVersion == "Vista"
541	${OrIf} $g_strWinVersion == "7"
542	${OrIf} $g_strWinVersion == "8"
543	${OrIf} $g_strWinVersion == "8_1"
544	${OrIf} $g_strWinVersion == "10"
545	StrCpy $g_bWithWDDM "true"
546	StrCpy $g_bCapWDDM "true"
547	${LogVerbose} "OS is WDDM driver capable"
548	${EndIf}
549	!endif
550
551	Pop $0
552
553	FunctionEnd
554	!macroend
555	!ifndef UNINSTALLER_ONLY
556	!insertmacro CheckForCapabilities ""
557	!endif
558	!insertmacro CheckForCapabilities "un."
559
560	; Switches (back) the path + registry view to
561	; 32-bit mode (SysWOW64) on 64-bit guests
562	!macro SetAppMode32 un
563	Function ${un}SetAppMode32
564	!if $%KBUILD_TARGET_ARCH% == "amd64"
565	${EnableX64FSRedirection}
566	SetRegView 32
567	!endif
568	FunctionEnd
569	!macroend
570	!ifndef UNINSTALLER_ONLY
571	!insertmacro SetAppMode32 ""
572	!insertmacro SetAppMode32 "un."
573	!endif
574
575	; Because this NSIS installer is always built in 32-bit mode, we have to
576	; do some tricks for the Windows paths + registry on 64-bit guests
577	!macro SetAppMode64 un
578	Function ${un}SetAppMode64
579	!if $%KBUILD_TARGET_ARCH% == "amd64"
580	${DisableX64FSRedirection}
581	SetRegView 64
582	!endif
583	FunctionEnd
584	!macroend
585	!insertmacro SetAppMode64 ""
586	!insertmacro SetAppMode64 "un."
587
588	;
589	; Retrieves the vendor ("CompanyName" of FILEINFO structure)
590	; of a given file.
591	; @return Stack: Company name, or "" on error/if not found.
592	; @param Stack: File name to retrieve vendor for.
593	;
594	!macro GetFileVendor un
595	Function ${un}GetFileVendor
596
597	; Preserve values
598	Exch $0 ; Stack: $0 <filename> (Get file name into $0)
599	Push $1
600
601	IfFileExists "$0" found
602	Goto not_found
603
604	found:
605
606	VBoxGuestInstallHelper::FileGetVendor "$0"
607	; Stack: <vendor> $1 $0
608	Pop $0 ; Get vendor
609	Pop $1 ; Restore $1
610	Exch $0 ; Restore $0, push vendor on top of stack
611	Goto end
612
613	not_found:
614
615	Pop $1
616	Pop $0
617	Push "File not found"
618	Goto end
619
620	end:
621
622	FunctionEnd
623	!macroend
624	!insertmacro GetFileVendor ""
625	!insertmacro GetFileVendor "un."
626
627	;
628	; Retrieves the architecture of a given file.
629	; @return Stack: Architecture ("x86", "amd64") or error message.
630	; @param Stack: File name to retrieve architecture for.
631	;
632	!macro GetFileArchitecture un
633	Function ${un}GetFileArchitecture
634
635	; Preserve values
636	Exch $0 ; Stack: $0 <filename> (Get file name into $0)
637	Push $1
638
639	IfFileExists "$0" found
640	Goto not_found
641
642	found:
643
644	${LogVerbose} "Getting architecture of file $\"$0$\" ..."
645
646	VBoxGuestInstallHelper::FileGetArchitecture "$0"
647
648	; Stack: <architecture> $1 $0
649	Pop $0 ; Get architecture string
650
651	${LogVerbose} "Architecture is: $0"
652
653	Pop $1 ; Restore $1
654	Exch $0 ; Restore $0, push vendor on top of stack
655	Goto end
656
657	not_found:
658
659	Pop $1
660	Pop $0
661	Push "File not found"
662	Goto end
663
664	end:
665
666	FunctionEnd
667	!macroend
668	!insertmacro GetFileArchitecture ""
669	!insertmacro GetFileArchitecture "un."
670
671	;
672	; Verifies a given file by checking its file vendor and target
673	; architecture.
674	; @return Stack: "0" if valid, "1" if not, "2" on error / not found.
675	; @param Stack: Architecture ("x86" or "amd64").
676	; @param Stack: Vendor.
677	; @param Stack: File name to verify.
678	;
679	!macro VerifyFile un
680	Function ${un}VerifyFile
681
682	; Preserve values
683	Exch $0 ; File; S: old$0 vendor arch
684	Exch ; S: vendor old$0 arch
685	Exch $1 ; Vendor; S: old$1 old$0 arch
686	Exch ; S: old$0 old$1 arch
687	Exch 2 ; S: arch old$1 old$0
688	Exch $2 ; Architecture; S: old$2 old$1 old$0
689	Push $3 ; S: old$3 old$2 old$1 old$0
690
691	${LogVerbose} "Verifying file $\"$0$\" (vendor: $1, arch: $2) ..."
692
693	IfFileExists "$0" check_arch
694	Goto not_found
695
696	check_arch:
697
698	${LogVerbose} "File $\"$0$\" found"
699
700	Push $0
701	Call ${un}GetFileArchitecture
702	Pop $3
703
704	${LogVerbose} "Architecture is: $3"
705
706	${If} $3 == $2
707	Goto check_vendor
708	${EndIf}
709	Goto invalid
710
711	check_vendor:
712
713	Push $0
714	Call ${un}GetFileVendor
715	Pop $3
716
717	${LogVerbose} "Vendor is: $3"
718
719	${If} $3 == $1
720	Goto valid
721	${EndIf}
722
723	invalid:
724
725	${LogVerbose} "File $\"$0$\" is invalid"
726
727	StrCpy $3 "1" ; Invalid
728	Goto end
729
730	valid:
731
732	${LogVerbose} "File $\"$0$\" is valid"
733
734	StrCpy $3 "0" ; Valid
735	Goto end
736
737	not_found:
738
739	${LogVerbose} "File $\"$0$\" was not found"
740
741	StrCpy $3 "2" ; Not found
742	Goto end
743
744	end:
745
746	; S: old$3 old$2 old$1 old$0
747	Exch $3 ; S: $3 old$2 old$1 old$0
748	Exch ; S: old$2 $3 old$1
749	Pop $2 ; S: $3 old$1 old$0
750	Exch ; S: old$1 $3 old$0
751	Pop $1 ; S: $3 old$0
752	Exch ; S: old$0 $3
753	Pop $0 ; S: $3
754
755	FunctionEnd
756	!macroend
757	!insertmacro VerifyFile ""
758	!insertmacro VerifyFile "un."
759
760	;
761	; Macro for accessing VerifyFile in a more convenient way by using
762	; a parameter list.
763	; @return Stack: "0" if valid, "1" if not, "2" on error / not found.
764	; @param Un/Installer prefix; either "" or "un".
765	; @param Name of file to verify.
766	; @param Vendor to check for.
767	; @param Architecture ("x86" or "amd64") to check for.
768	;
769	!macro VerifyFileEx un File Vendor Architecture
770	Push $0
771	Push "${Architecture}"
772	Push "${Vendor}"
773	Push "${File}"
774	Call ${un}VerifyFile
775	Pop $0
776	${If} $0 == "0"
777	${LogVerbose} "Verification of file $\"${File}$\" successful (Vendor: ${Vendor}, Architecture: ${Architecture})"
778	${ElseIf} $0 == "1"
779	${LogVerbose} "Verification of file $\"${File}$\" failed (not Vendor: ${Vendor}, and/or not Architecture: ${Architecture})"
780	${Else}
781	${LogVerbose} "Skipping to file $\"${File}$\"; not found"
782	${EndIf}
783	; Push result popped off the stack to stack again
784	Push $0
785	!macroend
786	!define VerifyFileEx "!insertmacro VerifyFileEx"
787
788	;
789	; Macro for copying a file only if the source file is verified
790	; to be from a certain vendor and architecture.
791	; @return Stack: "0" if copied, "1" if not, "2" on error / not found.
792	; @param Un/Installer prefix; either "" or "un".
793	; @param Name of file to verify and copy to destination.
794	; @param Destination name to copy verified file to.
795	; @param Vendor to check for.
796	; @param Architecture ("x86" or "amd64") to check for.
797	;
798	!macro CopyFileEx un FileSrc FileDest Vendor Architecture
799	Push $0
800	Push "${Architecture}"
801	Push "${Vendor}"
802	Push "${FileSrc}"
803	Call ${un}VerifyFile
804	Pop $0
805
806	Push "${Architecture}"
807	Push "Oracle Corporation"
808	Push "${FileDest}"
809	Call ${un}VerifyFile
810	Pop $0
811
812	${If} $0 == "0"
813	${LogVerbose} "Copying verified file $\"${FileSrc}$\" to $\"${FileDest}$\" ..."
814	ClearErrors
815	SetOverwrite on
816	CopyFiles /SILENT "${FileSrc}" "${FileDest}"
817	${If} ${Errors}
818	CreateDirectory "$TEMP\${PRODUCT_NAME}"
819	${GetFileName} "${FileSrc}" $0 ; Get the base name
820	CopyFiles /SILENT "${FileSrc}" "$TEMP\${PRODUCT_NAME}\$0"
821	${LogVerbose} "Immediate installation failed, postponing to next reboot (temporary location is: $\"$TEMP\${PRODUCT_NAME}\$0$\") ..."
822	;${InstallFileEx} "${un}" "${FileSrc}" "${FileDest}" "$TEMP" ; Only works with compile time files!
823	System::Call "kernel32::MoveFileEx(t '$TEMP\${PRODUCT_NAME}\$0', t '${FileDest}', i 5)"
824	${EndIf}
825	${Else}
826	${LogVerbose} "Skipping to copy file $\"${FileSrc}$\" to $\"${FileDest}$\" (not Vendor: ${Vendor}, Architecture: ${Architecture})"
827	${EndIf}
828	; Push result popped off the stack to stack again
829	Push $0
830	!macroend
831	!define CopyFileEx "!insertmacro CopyFileEx"
832
833	;
834	; Macro for installing a library/DLL.
835	; @return Stack: "0" if copied, "1" if not, "2" on error / not found.
836	; @param Un/Installer prefix; either "" or "un".
837	; @param Name of lib/DLL to copy to destination.
838	; @param Destination name to copy the source file to.
839	; @param Temporary folder used for exchanging the (locked) lib/DLL after a reboot.
840	;
841	!macro InstallFileEx un FileSrc FileDest DirTemp
842	${LogVerbose} "Installing library $\"${FileSrc}$\" to $\"${FileDest}$\" ..."
843	; Try the gentle way and replace the file instantly
844	!insertmacro InstallLib DLL NOTSHARED NOREBOOT_NOTPROTECTED "${FileSrc}" "${FileDest}" "${DirTemp}"
845	; If the above call didn't help, use a (later) reboot to replace the file
846	!insertmacro InstallLib DLL NOTSHARED REBOOT_NOTPROTECTED "${FileSrc}" "${FileDest}" "${DirTemp}"
847	!macroend
848	!define InstallFileEx "!insertmacro InstallFileEx"
849
850	;
851	; Macro for installing a library/DLL.
852	; @return Stack: "0" if copied, "1" if not, "2" on error / not found.
853	; @param Un/Installer prefix; either "" or "un".
854	; @param Name of lib/DLL to verify and copy to destination.
855	; @param Destination name to copy verified file to.
856	; @param Temporary folder used for exchanging the (locked) lib/DLL after a reboot.
857	; @param Vendor to check for.
858	; @param Architecture ("x86" or "amd64") to check for.
859	;
860	!macro InstallFileVerify un FileSrc FileDest DirTemp Vendor Architecture
861	Push $0
862	Push "${Architecture}"
863	Push "${Vendor}"
864	Push "${FileSrc}"
865	${LogVerbose} "Verifying library $\"${FileSrc}$\" ..."
866	Call ${un}VerifyFile
867	Pop $0
868	${If} $0 == "0"
869	${InstallFileEx} ${un} ${FileSrc} ${FileDest} ${DirTemp}
870	${Else}
871	${LogVerbose} "File $\"${FileSrc}$\" did not pass verification (Vendor: ${Vendor}, Architecture: ${Architecture})"
872	${EndIf}
873	; Push result popped off the stack to stack again.
874	Push $0
875	!macroend
876	!define InstallFileVerify "!insertmacro InstallFileVerify"
877
878
879	; Note: We don't ship modified Direct3D files anymore, but we need to (try to)
880	; restore the original (backed up) DLLs when upgrading from an old(er)
881	; installation.
882	;
883	; Restores formerly backed up Direct3D original files, which were replaced by
884	; a VBox XPDM driver installation before. This might be necessary for upgrading a
885	; XPDM installation to a WDDM one.
886	; @return Stack: "0" if files were restored successfully; otherwise "1".
887	;
888	!macro RestoreFilesDirect3D un
889	Function ${un}RestoreFilesDirect3D
890	${If} $g_bCapXPDM != "true"
891	${LogVerbose} "RestoreFilesDirect3D: XPDM is not supported"
892	Return
893	${EndIf}
894
895	Push $0
896
897	; We need to switch to 64-bit app mode to handle the "real" 64-bit files in
898	; "system32" on a 64-bit guest
899	Call ${un}SetAppMode64
900
901	${LogVerbose} "Restoring original D3D files ..."
902	${CopyFileEx} "${un}" "$SYSDIR\msd3d8.dll" "$SYSDIR\d3d8.dll" "Microsoft Corporation" "$%KBUILD_TARGET_ARCH%"
903	${CopyFileEx} "${un}" "$SYSDIR\msd3d9.dll" "$SYSDIR\d3d9.dll" "Microsoft Corporation" "$%KBUILD_TARGET_ARCH%"
904
905	${If} $g_bCapDllCache == "true"
906	${CopyFileEx} "${un}" "$SYSDIR\dllcache\msd3d8.dll" "$SYSDIR\dllcache\d3d8.dll" "Microsoft Corporation" "$%KBUILD_TARGET_ARCH%"
907	${CopyFileEx} "${un}" "$SYSDIR\dllcache\msd3d9.dll" "$SYSDIR\dllcache\d3d9.dll" "Microsoft Corporation" "$%KBUILD_TARGET_ARCH%"
908	${EndIf}
909
910	!if $%KBUILD_TARGET_ARCH% == "amd64"
911	${CopyFileEx} "${un}" "$g_strSysWow64\msd3d8.dll" "$g_strSysWow64\d3d8.dll" "Microsoft Corporation" "x86"
912	${CopyFileEx} "${un}" "$g_strSysWow64\msd3d9.dll" "$g_strSysWow64\d3d9.dll" "Microsoft Corporation" "x86"
913
914	${If} $g_bCapDllCache == "true"
915	${CopyFileEx} "${un}" "$g_strSysWow64\dllcache\msd3d8.dll" "$g_strSysWow64\dllcache\d3d8.dll" "Microsoft Corporation" "x86"
916	${CopyFileEx} "${un}" "$g_strSysWow64\dllcache\msd3d9.dll" "$g_strSysWow64\dllcache\d3d9.dll" "Microsoft Corporation" "x86"
917	${EndIf}
918	!endif
919
920	Pop $0
921
922	FunctionEnd
923	!macroend
924	!insertmacro RestoreFilesDirect3D ""
925	!insertmacro RestoreFilesDirect3D "un."

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Additions/WINNT/Installer/VBoxGuestAdditionsCommon.nsh@ 106854

Download in other formats: