原创 Delphi 代碼實現窗口透明+圓角邊框
procedure TfrmRemoteData.DoInvisible; //透明 var control: TControl; index, margin, X, Y, ctlX, ctlY, i: Integer; f
2018-08-24 08:17:44
3
原创 Delphi 獲取系統默認打印機
function getSystemDefaultPrinter: string; var index: integer; defaultPrinter: string; flag: Boolean; len: DWORD
2018-08-24 08:17:33
2
原创 TJsonObject解析null值
在國內找TJsonObject數據類型對傳入null值的處理，度娘不可靠，還是翻牆找外國資料靠譜。 這個問題在2015年已經解決了, JsonSerializationConfig.NullConvertsToValueTypes :=
2018-08-24 08:17:33
7
原创 Innosetup狀態頁面和嚮導頁面解釋
1、安裝： CurStepChanged所對應的全部狀態：3種 1.1. CurStep=ssInstall --是在程序實際安裝前（所有配置都準備好了） 1.2.CurSte
2018-08-24 08:17:32
8
原创 delphi Tservice類
TService： 屬性介紹AllowPause 表明服務是否允許暫停。True則SCP（服務控制面板）上的暫停按鈕時可用的，False則是不可用的 AllowStop 表明服務是否允許停止。True則SCP（服務控制面板）上的停止按
2018-08-24 08:17:32
原创 inno setup打包service
打包service，老外已經把這塊代碼封裝好。 注意：inno setup有兩個版本一個是Unicode編碼一個是非Unicode編碼，這裏必須用Unicode編碼的打包。在這裏找了半天的問題，寫進服務時候一直亂碼。 區分：打開inno帶
2018-08-24 08:17:31
7