PPDK/_PurePortableExpert_Template.pb - master - Smitis/PurePortable

PPDK/_PurePortableExpert_Template.pb
315 строк15 KB
Smitis
v4.10.0.30+
20 окт 2024, 15:29
20 окт 2024, 15:290266882
;;======================================================================================================================
; PurePortable for XXX
;;======================================================================================================================
; Особенности портабелизации:
;
;;======================================================================================================================
; История изменений:
;
;;======================================================================================================================

;PP_SILENT
;PP_PUREPORTABLE 1
;PP_FORMAT DLL
;PP_ENABLETHREAD 1
;RES_VERSION 4.10.0.0
;RES_DESCRIPTION PurePortableExpert
;RES_COPYRIGHT (c) Smitis, 2017-2024
;RES_INTERNALNAME 410.dll
;RES_PRODUCTNAME PurePortable
;RES_PRODUCTVERSION 4.10.0.30
;PP_X32_COPYAS "P:\PurePortable\Apps\proxy32.dll"
;PP_X64_COPYAS "P:\PurePortable\Apps\proxy64.dll"
;PP_CLEAN 2

EnableExplicit
IncludePath "..\PPDK\Lib" ; Для доступа к файлам рядом с исходником можно использовать #PB_Compiler_FilePath
XIncludeFile "PurePortableCustom.pbi"

; Для подменяемой dll для объявление экспорта прокси-dll
; Поддерживаемые dll: avifil32 dbghelp ddraw dnsapi dwmapi iphlpapi ktmw32 mpr msacm32 mscms msi msvfw32
; opengl32 secur32 shfolder urlmon userenv uxtheme version wer winhttp wininet winmm winspool wintrust wtsapi32
; advapi32 comdlg32 kernel32 shell32 user32: с патчем исполняемого файла
; msimg32 с ограничениями (AlphaBlend) или правкой таблицы экспорта
#PROXY_DLL = "version"
;#PROXY_DLL_COMPATIBILITY = 7 ; Совместимость: 0 - по умолчанию, 5 - XP, 7 - Windows 7, 10 - Windows 10

; Если эта константа определена и строка не пустая, константа используется как имя файла конфигурации.
; Если эта константа определена и строка пустая, имя будет то же, что и у программы плюс расширение, заданное константой #CONFIG_FILEEXT.
; Если эта константа не определена, имя файла конфигурации надо задавать вручную (полный путь к файлу).
#CONFIG_FILENAME = "PurePortable"
;#CONFIG_INITIAL = #CONFIG_FILENAME+"-Init"
;#PREFERENCES_FILENAME = #CONFIG_FILENAME ; Имя файла конфигурации PurePortable

;;----------------------------------------------------------------------------------------------------------------------
#PORTABLE = 0 ; Управление портабелизацией: 0 - прозрачный режим, 1 - перехват
#PORTABLE_REGISTRY = 1 ; Перехват функций для работы с реестром
;{ Управление хуками PORTABLE_REGISTRY
#DETOUR_REG_SHLWAPI = 0 ; Перехват функций для работы с реестром из shlwapi
#DETOUR_REG_TRANSACTED = 0
;}
#PORTABLE_SPECIAL_FOLDERS = 1 ; Перехват функций для работы со специальными папками
;{ Управление хуками PORTABLE_SPECIAL_FOLDERS
#DETOUR_SHFOLDER = 0 ; Перехват функций из shfolder.dll
#DETOUR_USERENV = 0	; Перехват функций из userenv.dll
;}
#PORTABLE_ENVIRONMENT_VARIABLES = 0
;{ Управление хуками PORTABLE_ENVIRONMENT_VARIABLES
#DETOUR_ENVIRONMENTVARIABLE = 1
#DETOUR_ENVIRONMENTSTRINGS = 0
#DETOUR_EXPANDENVIRONMENTSTRINGS = 0
#DETOUR_ENVIRONMENT_CRT = "" ; msvcrt
;}
#PORTABLE_PROFILE_STRINGS = 0
#PROFILE_STRINGS_FILENAME = "PurePortable"
#PORTABLE_CBT_HOOK = 0 ; Хук на отслеживание закрытие окон и сохранение конфигурации
#PORTABLE_ENTRYPOINT = 0

;;----------------------------------------------------------------------------------------------------------------------
;{ Мониторинг
#DBG_REGISTRY = 0
#DBG_SPECIAL_FOLDERS = 0
#DBG_ENVIRONMENT_VARIABLES = 0 ; 1 - только переопределяемые, 2 - все
#DBG_PROFILE_STRINGS = 0
#DBG_CBT_HOOK = 0
#DBG_MIN_HOOK = 0
#DBG_IAT_HOOK = 0
#DBG_PROXY_DLL = 0
#DBG_ANY = 0
;}
;{ Мониторинг некоторых вызовов WinApi
#DBGX_EXECUTE = 0 ; 1 - ShellExecute/CreateProcess, 2 - CreateProcess
#DBGX_LOAD_LIBRARY = 0 ; 1 - всё, 2 - без GetProcAddress
#DBGX_FILE_OPERATIONS = 0
#DBGX_PROFILE_STRINGS = 0
;}
;;----------------------------------------------------------------------------------------------------------------------
;{ Блокировка интернета
#BLOCK_WININET = 0 ; wininet.dll
#BLOCK_WINHTTP = 0 ; winhttp.dll
#BLOCK_WINSOCKS = 0 ; 1 - wsock32.dll, 2 - ws2_32.dll
#DBG_BLOCK_INTERNET = 0
;}
;{ Блокировка консоли
#BLOCK_CONSOLE = 0
#DBG_BLOCK_CONSOLE = 0
;}
;{ Управление сохранением конфигурации
#CFG_SAVE_ON_CLOSE = 0 ; Сохранять настройки при RegCloseKey (может вызвать замедление). 1 - сохранять всегда, 2 - управление через переменную CfgSaveOnClose
;}
;{ Некоторые дополнительные процедуры
#PROC_GETVERSIONINFO = 1 ; Получение информации о файле
#PROC_CORRECTPATH = 0 ; Процедуры коррекции локальных путей. 1: если не найдено, возвращает пустую строку, 2: если не найдено, возвращает прежнее значение.
#PROC_CORRECTCFGPATH = 0 ; Если используется, должна быть установлена #PROC_CORRECTPATH
;#PROC_GUID2S = 0 ; Преобразование GUID/CLSID в строку вида {4AABE186-2666-4663-9E3E-5DFD6EAAAB60}
;}
#INCLUDE_MIN_HOOK = 0 ; Принудительное включение MinHook
#INCLUDE_IAT_HOOK = 0 ; Принудительное включение IatHook
XIncludeFile "PurePortable.pbi"
;;======================================================================================================================
;{ SPECIAL FOLDERS
CompilerIf #PORTABLE_SPECIAL_FOLDERS
	Procedure.s CheckRFID(rfid)
; 		If CompareMemory(rfid,?FOLDERID_ProgramFiles,16)
; 			ProcedureReturn ProfileRedir
; 		EndIf
 		ProcedureReturn ""
	EndProcedure
	DataSection
; 		FOLDERID_ProgramFiles: ; {905E63B6-C1BF-494E-B29C-65B732D3D21A}
; 		Data.l $905E63B6
; 		Data.w $C1BF,$494E
; 		Data.b $B2,$9C,$65,$B7,$32,$D3,$D2,$1A
; 		FOLDERID_ProgramFilesCommon: ; {F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}
; 		Data.l $F7F1ED05
; 		Data.w $9F6D,$47A2
; 		Data.b $AA,$AE,$29,$D3,$17,$C6,$F0,$66
	EndDataSection
	Procedure.s CheckCSIDL(csidl) ; Принимается csidl & ~#CSIDL_FLAG_MASK
; 		Select csidl
; 			Case #CSIDL_PROGRAM_FILES_COMMON ; 0x2B
; 				ProcedureReturn ProfileRedir
; 		EndSelect
		ProcedureReturn ""
	EndProcedure
CompilerEndIf
;}
;{ REGISTRY
CompilerIf #PORTABLE_REGISTRY
	Procedure.s CheckKey(hKey.l,Key.s)
		; Key будет передан в нижнем регистре! Возвращаемое значение также должно быть в нижнем регистре!
		; Если первым символом будет символ «?», такой ключ не будет сохранён.
		;;---------------         1         2         3         4         5         6         7         8         9
		;;---------------123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
		If Left(Key,24)="software\company\program"
			ProcedureReturn Mid(Key,10)
		EndIf
		;;---------------         1         2         3         4         5         6         7         8         9
		;;---------------123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
		If Left(Key,15)="company\program"
			ProcedureReturn Key
		EndIf
		; Разные мусорные ключи можно перехватить, но не сохранять.
		;If Left(Key,15)="software\python" : ProcedureReturn "?"+Key : EndIf
		;If Left(Key,18)="software\qtproject" : ProcedureReturn "?"+Key : EndIf
		;If Left(Key,18)="software\trolltech" : ProcedureReturn "?"+Key : EndIf
		;If Left(Key,18)="software\asprotect" : ProcedureReturn "?"+Key : EndIf
		;If Left(Key,18)="software\eurekalab" : ProcedureReturn "?"+Key : EndIf
		;If Left(Key,20)="software\embarcadero" Or Left(Key,16)="software\borland" Or Left(Key,17)="software\codegear" : ProcedureReturn "?"+Key : EndIf
		ProcedureReturn ""
	EndProcedure
CompilerEndIf
;}
;{ PROFILE STRINGS
CompilerIf #PORTABLE_PROFILE_STRINGS
	Procedure.s CheckIni(FileName.s)
		ProcedureReturn PrgDir+GetFilePart(FileName)
	EndProcedure
CompilerEndIf
;}
;{ CBT HOOK
; Процедура должна вернуть:
; 0 - выполнить CallNextHookEx
; Или сумму флагов
; 1 - сохранить реестр, 2 - снять CBT-хук (UnhookWindowsHookEx), 4 - снять все хуки
; $F - сохранить реестр и снять все хуки (при завершении программы)
CompilerIf #PORTABLE_CBT_HOOK
	; Заголовок передаётся в нижнем регистре не более 64 символов.
	Procedure CheckTitle(nCode,Title.s)
		If Title = "qtpowerdummywindow"
			CompilerIf Defined(MH_Initialize,#PB_Procedure) : MH_Uninitialize() : CompilerEndIf
			DbgCbt("CBT EXIT: "+GetFilePart(PrgPath))
			LoggingEnd("CBT EXIT: "+GetFilePart(PrgPath))
			ProcedureReturn #PORTABLE_CBTR_FULL
		EndIf
		;;-------------------         1         2         3         4         5         6         7         8         9
		;;-------------------123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
		If Left(Title,10) = "cicmarshalwnd"
			CompilerIf Defined(MH_Initialize,#PB_Procedure) : MH_Uninitialize() : CompilerEndIf
			DbgCbt("CBT EXIT: "+GetFilePart(PrgPath))
			LoggingEnd("CBT EXIT: "+GetFilePart(PrgPath))
			ProcedureReturn #PORTABLE_CBTR_FULL
		EndIf
		ProcedureReturn 0
	EndProcedure
CompilerEndIf
;}
;{ ENTRY POINT
CompilerIf #PORTABLE_ENTRYPOINT
	Procedure EntryPoint()
		;dbg("ENTRYPOINT")
	EndProcedure
CompilerEndIf
;}
;;======================================================================================================================
ProcedureDLL.l AttachProcess(Instance)
	PPAttachProcess
	;ValidateProgram(1,"InternalName","program") ; Проверка, та ли программа запущена
	;ValidateProgram(1,"ProductName","program") ; Проверка, та ли программа запущена
	;ValidateProgramName(1,"program",1) ; Проверка, та ли программа запущена
	;Protected FileInfo.s = LCase(GetFileVersionInfo(PrgPath,"InternalName"))
	;Protected FileInfo.s = LCase(GetFilePart(GetFileVersionInfo(PrgPath,"OriginalFilename"),#PB_FileSystem_NoExtension))
	;If FileInfo <> "XXX"
	;	;RaiseError(#ERROR_DLL_INIT_FAILED)
	;	TerminateProcess_(GetCurrentProcess_(),0)
	;	ProcedureReturn
	;EndIf

	;{ Папки
	CompilerIf #PORTABLE_SPECIAL_FOLDERS Or #PORTABLE_ENVIRONMENT_VARIABLES
		;ProfileRedir = NormalizePath(PrgDir+"..")
		ProfileRedir = PrgDirN
		AppDataRedir = PrgDirN
		LocalAppDataRedir = PrgDirN
		;LocalLowAppDataRedir = PrgDirN
		CommonAppDataRedir = PrgDirN
		;DocumentsRedir = PrgDirN+"\Documents"
		;CommonDocumentsRedir = DocumentsRedir
		;CreatePath(DocumentsRedir)
	CompilerEndIf
	;}

	;{ Переменные среды
	;SetEnvironmentVariable("APPDATA",PrgDirN)
	;SetEnvironmentVariable("LOCALAPPDATA",PrgDirN)
	;SetEnvironmentVariable("USERPROFILE",PrgDirN)
	;SetEnvironmentVariable("ALLUSERSPROFILE",PrgDirN)
	;SetEnvironmentVariable("PROGRAMDATA",PrgDirN)
	;SetEnvironmentVariable("PUBLIC",PrgDirN)
	;SetEnvironmentVariable("HOME",PrgDirN)
	;SetEnvironmentVariable("HOMEDRIVE",Left(PrgDirN,2))
	;SetEnvironmentVariable("HOMEPATH",Mid(PrgDirN,3))
	;SetEnvironmentVariable("TEMP",PrgDir+".temp")
	;SetEnvironmentVariable("TMP",PrgDir+".temp")
	;SetEnvironmentVariable("TMPDIR",PrgDir+".temp")
	;SetEnvironmentVariable("PROGRAMDIR",PrgDirN)
	;}

	;{ Реестр
	CompilerIf #PORTABLE_REGISTRY
		;ConfigFile = PrgDir+GetFilePart(GetFileVersionInfo(PrgPath,"InternalName"),#PB_FileSystem_NoExtension)+#CONFIG_FILEEXT
		ReadCfg()

		; Коррекция путей
		;Protected SettingsKey.s = "programs\settings"
		;Protected NewPath.s
		;NewPath = GetCfgS(SettingsKey,"lastpath")
		;If NewPath
		;	CorrectPath(NewPath,PrgDirN,#CORRECTPATH_FROM_DEEP|#CORRECTPATH_FORWARD_SLASH)
		;EndIf
		;CorrectCfgPath(SettingsKey,"lastdatabasepath",PrgDirN,#CORRECTPATH_FORWARD_SLASH)
	CompilerEndIf
	;}

	PPInitialization
	;EndAttach:
EndProcedure

;;----------------------------------------------------------------------------------------------------------------------
ProcedureDLL.l DetachProcess(Instance)
	;;------------------------------------------------------------------------------------------------------------------
	; Завершающие действия выполняемые при портабелизации реестра.
	; Модификация параметров.
	; Сохранение конфигурации.
	;;------------------------------------------------------------------------------------------------------------------
	PPDetachProcess
	CompilerIf Defined(MIN_HOOK,#PB_Constant)
		CompilerIf #MIN_HOOK
			MH_Uninitialize()
		CompilerEndIf
	CompilerEndIf
	CompilerIf #PORTABLE_REGISTRY
		WriteCfg()
	CompilerEndIf
	;{ Чистка временных папок
	CompilerIf #PORTABLE_SPECIAL_FOLDERS Or #PORTABLE_ENVIRONMENT_VARIABLES
		;If AppDataRedir
		;	DeleteDirectory(AppDataRedir+"\NVIDIA Corporation","",#PB_FileSystem_Recursive)
		;	DeleteDirectory(AppDataRedir+"\NVIDIA","",#PB_FileSystem_Recursive)
		;	DeleteDirectory(AppDataRedir+"\Microsoft","",#PB_FileSystem_Recursive)
		;EndIf
	CompilerEndIf
	;}
	
	PPDetachProcessEnd
EndProcedure

;;======================================================================================================================

; IDE Options = PureBasic 6.04 LTS (Windows - x86)
; ExecutableFormat = Shared dll
; Folding = I1rG0
; Optimizer
; EnableThread
; Executable = 400.dll
; DisableDebugger
; EnableExeConstant
; IncludeVersionInfo
; VersionField0 = 4.10.0.0
; VersionField1 = 4.10.0.0
; VersionField3 = PurePortable
; VersionField4 = 4.10.0.0
; VersionField5 = 4.10.0.0
; VersionField6 = PurePortableExpert
; VersionField7 = 400.dll
; VersionField9 = (c) Smitis, 2017-2024