|
|
楼主 |
发表于 2024-8-11 13:26:49
|
显示全部楼层
破解器打包最䅇代码：
; 脚本由 Inno Setup 脚本向导生成。
; 有关创建 Inno Setup 脚本文件的详细信息，请参阅帮助文档！
#define MyAppName "方方格子徐哥破解"
#define MyAppVersion "1.0"
#define MyAppPublisher "XuGuoWei"
#define MyAppURL "www.wodezhiwu.com"
#define MyAppExeName "KeyGen.exe"
[Setup]
; 注意：AppId 的值唯一标识此应用程序。不要在其他应用程序的安装程序中使用相同的 AppId 值。
; (若要生成新的 GUID，请在 IDE 中单击 "工具|生成 GUID"。)
//右上位图的分辨率60X60的BMP格式的文件
WizardSmallImageFile=C:\Users\1202\Documents\Patch1\X.bmp
//左侧位图的分辨率166X315的BMP格式的文件
WizardImageFile=C:\Users\1202\Documents\Patch1\LX.bmp
AppId={{994BA0CF-6297-46C8-B864-8A30B88A12DE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\Program Files (x86)\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
LicenseFile=许可协议.txt
InfoBeforeFile=Readme.txt
; 取消对以下行的注释以在非管理安装模式下运行(仅针对当前用户进行安装)。
;PrivilegesRequired=lowest
OutputBaseFilename=mysetup
Compression=lzma
SolidCompression=yes
WizardStyle=modern
Password=Q1w2e3
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Users\1202\Documents\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
Source: waterctrl.dll; Flags: dontcopy
Source: lx.bmp; Flags: dontcopy
Source:"C:\Users\1202\Documents\Patch2\NewMem.dll"; DestDir:"C:\Program Files (x86)\方方格子"; Flags: ignoreversion
Source: "C:\Users\1202\Documents\Patch1\NewMem.dll";DestDir:"C:\Program Files (x86)\方方格子\Tools\ExcelSummary"; Flags: ignoreversion
Source: "C:\Users\1202\Documents\Patch2\NewMem.dll";DestDir:"C:\Program Files (x86)\方方格子\Tools\VideoInfo"; Flags: ignoreversion
Source: "C:\Users\1202\Documents\Patch1\NewMem.dll";DestDir:"C:\Program Files (x86)\方方格子\ProAddins\Excel公式向导"; Flags: ignoreversion
Source: "C:\Users\1202\Documents\Patch1\NewMem.dll";DestDir:"C:\Program Files (x86)\方方格子\ProAddins\Teamwork"; Flags: ignoreversion
Source: "C:\Users\1202\Documents\Patch1\NewMem.dll";DestDir:"C:\Program Files (x86)\方方格子\ProAddins\图片工具"; Flags: ignoreversion
; 注意：不要在任何共享系统文件上使用 "Flags: ignoreversion"
[Code]
function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
//ParentWnd 放置特效窗口的父窗口句柄。
//Left 左位置
//Top 上位置
//Bmp 位图句柄。
//WaterRadius 水纹半径，会令到水纹看起来范围更广。
//WaterHeight 水纹高度，会令到水纹看起来更深。
//注意，水纹插件自动根据图片来设定高度和宽度，
//另外水纹底图必须是翻转的图片，显示的时候会翻转图片来显示。
function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
// 在 x,y 点产生半径为radius, 高度为height 的水纹。
function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
// 平伏所有水纹。
function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
//释放水纹插件
function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
//v2 新增，设置水纹插件的父句柄
var
bmp: TBitmap;
procedure InitializeWizard();
begin
ExtractTemporaryFile('lx.bmp');
bmp := TBitmap.create;
bmp.LoadFromFile(ExpandConstant('{tmp}\lx.bmp'));
enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpWelcome then
begin
setwaterparent(WizardForm.WelcomePage.Handle);
waterblob(70, 198, 10, 1000);
end else
if CurPageID = wpFinished then
begin
setwaterparent(WizardForm.FinishedPage.Handle);
waterblob(70, 198, 10, 1000);
end else
flattenwater();
end;
procedure DeinitializeSetup();
begin
disablewater();
bmp.Free;
end;
[Icons]
Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent |
|
发表于 2024-8-10 14:21:54
