pascalscript

    -1熱度

    1回答

    我需要修改我的Pascal腳本代碼中的函數參數變量(字符串),並在腳本完成工作後將其獲取到Delphi函數中。 我的腳本代碼: function OnBroadcastMessage(iCID, iUIN: integer; var sUsersList: string; dtActualTo: double; bMustRead, bReadNotify: boolean; sMsg: stri

    1熱度

    1回答

    我想隱藏unisntaller的第一條和最後一條消息。該代碼可以使用Inno Setup的(Inno Setup的超5.5.1.ee2)修改後的版本,但不能很好地工作,以隱藏第一消息(短暫出現,消失): function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PansiChar): HWND; external

    1熱度

    1回答

    我試圖創建一個包含了換行符的按鈕標題: Button.Caption := 'Line1' + #13#10 + 'Line2'; 但是,標準的換行符#13#10不會出現在這種情況下工作,因爲我越來越: Line1Line2 按鈕上顯示。在多行中打破按鈕標題的正確語法是什麼?

    0熱度

    1回答

    我試圖建立辨認的元素和標籤必須或多或少這樣的樹形層級: Standalone Controls (label, root) |__Check/Uncheck all controls of all groups (checkbox) | | | |__Controls group 1 (group description label) | | |__Check/Uncheck all th

    0熱度

    1回答

    我在考慮一種插件系統來擴展腳本函數 而不用重新編譯應用程序。 我的想法是,在啓動過程中,程序掃描一個文件夾並註冊 所有發現的DLL。 (每個DLL公開一個函數)。由於不知道函數是在哪個DLL中定義的,因此我不能使用 函數FindWindow(c1,c2:PChar):Cardinal;外部'[email protected] stdcall'; 這是在PascalScript的例子之一。 可能有人

    2熱度

    1回答

    我想用Inno Setup創建一個安裝程序,這是我第一次使用此工具。 我想要做的是用更詳細的自制安裝程序(即Setup.exe中的Setup.exe)封裝現有軟件的現有安裝程序。 在研究到目前爲止,我的作品是要求安裝程序(Inno Setup * .exe)運行附帶的安裝程序(實際的軟件設置)。 爲什麼我需要另一個安裝程序?因爲我想給它一些額外的功能。 特別是:我想在安裝結束時添加一個註冊表鍵,作

    2熱度

    1回答

    我使用Unmanaged Exports NuGet羅伯特捷並在C#下面的方法: [DllExport("DummyMethod", CallingConvention = CallingConvention.StdCall)] public static void DummyMethod( [MarshalAs(UnmanagedType.LPArray, SizeParamIndex

    1熱度

    1回答

    我需要在代碼中通過Inno Setup運行幾個註冊表文件。我不能使用[Registry]部分,因爲這是一個標準安裝工具包,應該選取.reg創建的文件並運行它們。 Exec('regedit.exe', 'C:\Support\MyReg.reg', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) 我想靜靜地運行,所以我嘗試了以下。 Exec('r

    0熱度

    1回答

    我想使用自定義卸載嚮導頁面,如問題Custom Uninstall page (not MsgBox)中所示的我的Inno安裝腳本中。 我遇到的問題是當頁面更改時TSetupForm的Caption不會更新。 我試着用下面的代碼。 [Code] const ControlGap = 5; procedure UpdateButtonsState(Form: TSetupForm)

    2熱度

    2回答

    檢查時看到一個數據庫(SQL Anywhere的)被解僱了,並準備接收到一個日誌請求我輸出數據庫信息窗口(文本)文件,然後試圖打開LoadStringFromFile失敗請使用LoadStringFromFile來閱讀本文,然後使用Pos來搜索特定的文本。問題是這個失敗(我假設),因爲該文件正在使用中。 Exec(strInstallPath + '\Bin32\dbeng17.exe', '-n