给 inno setup 源码打补丁

qqycra

首先下载源码：
curl -x 127.0.0.1:8888 https://codeload.github.com/jrsoftware/issrc/zip/refs/heads/main -o issrc-main.zip
下载后先解压缩。


有几个地方要改改：
1、修改默认快捷键
Compile -------------------------------- 改为F9
Generate &GUID -----------------------改为F2
MessageBox Designer------------------改为F4
Open Output Folder--------------------改为F11
Run to &Cursor-------------------------去掉快捷键
Terminate--------------------------------改为F6
2、去掉插入GUID的确认对话框，去掉停止调试的确认对话框
3、增加《Compil32.exe编辑iss时，iss文件有改动自动重新加载》功能

确定目标，开整！


1/修改快捷键，通过对比修改前后的form文件，确定dfm文件变动内容。
2/安装对话框内容搜索源码找到对应位置，注释掉对应源码。
3/打开issrc-main\Projects\Compil32.dproj，在界面设计器找到StatusBar新增1个Panels，
    然后再OpenFile(Memo, Memo.Filename, False);下面增加

            StatusBar.Panels[6].Text := '文件重新加载完成。。。';
            WaitedTime:=0;
            while (WaitedTime < 3500) do
            begin
              SleepEx(100,False);
              Inc(WaitedTime,100);
              Application.ProcessMessages ;
            end;
            StatusBar.Panels[6].Text :=  '';

inno setup总更新，不能每次手动改源码。那么使用sfk 制作补丁模板。


模板格式：
:patch "InnoSetup" 名称
:info InnoSetup 信息
:root InnoSetup 目录
:file issrc-main\Projects\CompForm.dfm 应用到哪个文件
:from
查找内容
:to
替换内容

下面是补丁全文：


:patch "InnoSetup"
:info InnoSetup
:root InnoSetup
:# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
:file issrc-main\Projects\CompForm.dfm
:from
        Width = 50
      end>
    OnDrawPanel = StatusBarDrawPanel
    OnResize = StatusBarResize
:to
// [patch-id]
        Width = 400
      end
      item
        Bevel = pbNone
        Width = 50
      end>
    OnDrawPanel = StatusBarDrawPanel
    OnResize = StatusBarResize
:from
        Caption = '&Compile'
        ShortCut = 16504
:to
        Caption = '&Compile'
        ShortCut = 121
:from
        Caption = '&Open Output Folder'
:to
        Caption = '&Open Output Folder'
        ShortCut = 122
:from
        Caption = 'Run to &Cursor'
        ShortCut = 115
:to
        Caption = 'Run to &Cursor'
:from
        Caption = '&Terminate'
        Enabled = False
        ShortCut = 16497
:to
        Caption = '&Terminate'
        Enabled = False
        ShortCut = 117
:from
        Caption = 'Generate &GUID'
        ShortCut = 24647
:to
        Caption = 'Generate &GUID'
        ShortCut = 113
:from
        Caption = '&MessageBox Designer...'
        ShortCut = 24653
:to
        Caption = '&MessageBox Designer...'
        ShortCut = 115
:done

:# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
:file issrc-main\Projects\CompForm.pas
:from
  if MsgBox('The generated GUID will be inserted into the editor at the cursor position. Continue?',
     SCompilerFormCaption, mbConfirmation, MB_YESNO) = IDYES then
:to
// [patch-id]
  //if MsgBox('The generated GUID will be inserted into the editor at the cursor position. Continue?',
     //SCompilerFormCaption, mbConfirmation, MB_YESNO) = IDYES then
:from
  if MsgBox(S, 'Terminate', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) <> IDYES then
    Exit;
:to
  //if MsgBox(S, 'Terminate', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) <> IDYES then
    //Exit;
:from
  Changed: Boolean;
:to
  Changed: Boolean;
  I:Integer;
  WaitedTime:Cardinal;
:from
        if MsgBox(Format(ReloadMessages[Memo.Modified], [Memo.Filename]),
           SCompilerFormCaption, mbConfirmation, MB_YESNO) = IDYES then
:to
        //if MsgBox(Format(ReloadMessages[Memo.Modified], [Memo.Filename]),
           //SCompilerFormCaption, mbConfirmation, MB_YESNO) = IDYES then
:from
            OpenFile(Memo, Memo.Filename, False);
:to
            OpenFile(Memo, Memo.Filename, False);
            StatusBar.Panels[6].Text := '文件重新加载完成。。。';
            WaitedTime:=0;
            while (WaitedTime < 3500) do
            begin
              SleepEx(100,False);
              Inc(WaitedTime,100);
              Application.ProcessMessages ;
            end;
            StatusBar.Panels[6].Text :=  '';
:done

将上面内容保存到 paApp.txt 文件。

以后，如果inno setup 源码更新了，只要特征没变，打补丁就完成相应功能修改。
打补丁的命令：sfk.exe patch -anyroot paApp.txt
（sfk.exe 下载地址http://stahlworks.com/dev/sfk/sfk.exe）

看看成果吧。

qqycra

这种文章不会有啥流量哈哈，innosetup不吸睛

TWYX

学习了，有时间试试，我用的 HM NIS Edit

qqycra

这个大补丁的确实很少有人用

爱飞的猫

你也可以用 git 导出补丁，维护自己的分支。

qqycra

爱飞的猫 发表于 2023-9-29 17:57
你也可以用 git 导出补丁，维护自己的分支。

感谢大佬，我还没那么玩过