- 博客(6)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 Delphi 获取系统默认打印机
function getSystemDefaultPrinter: string;var index: integer; defaultPrinter: string; flag: Boolean; len: DWORD;begin if (Printer = nil) or (printer.Printers.Count = 0) then begin Mes
2017-11-27 09:11:30
2417
原创 inno setup打包service
打包service，老外已经把这块代码封装好。type _SERVICE_STATUS = record dwServiceType: Longword; dwCurrentState: Longword; dwControlsAccepted: Longword; dwWin32ExitCode: Longword; dwServiceSpecif
2017-09-26 20:44:52
1472
转载 Innosetup状态页面和向导页面解释
1、安装： CurStepChanged所对应的全部状态：3种 1.1. CurStep = ssInstall --是在程序实际安装前（所有配置都准备好了） 1.2. CurStep =s sPostInstall --是实际安装完成后 1.3. CurStep = ssDone --是在一次成功
2017-09-23 15:01:09
628
转载 delphi Tservice类
TService属性介绍：AllowPause：是否允许暂停；AllowStop：是否允许停止；Dependencies：启动服务时所依赖的服务，如果依赖服务不存在则不能启动服务，而且启动本服务的时候会自动启动依赖服务；DisplayName：服务显示名称；ErrorSeverity：错误严重程度；Interactive：是否允许和桌面交互；LoadGroup：加载
2017-09-21 18:32:50
831
原创 TJsonObject解析null值
在国内找TJsonObject数据类型对传入null值的处理，度娘不可靠，还是翻墙找外国资料靠谱。这个问题在2015年已经解决了,JsonSerializationConfig.NullConvertsToValueTypes := true;在代码中设置JsonSerializationConfig.NullConvertsToValueTypes的值为True就可以对null解析。当然
2017-09-09 09:49:39
1058
原创 Delphi 代码实现窗口透明+圆角边框
procedure TfrmRemoteData.DoInvisible; //透明var control: TControl; index, margin, X, Y, ctlX, ctlY, i: Integer; fullRgn, clientRgn, ctlRgn: THandle;begin margin := (Width - ClientWidth) div 2
2017-08-25 11:11:44
1717
Delphi Indy10.6
2017-09-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人