- 博客(6)
- 资源 (3)
- 收藏
- 关注
原创 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
2537
原创 inno setup打包service
打包service,老外已经把这块代码封装好。type _SERVICE_STATUS = record dwServiceType: Longword; dwCurrentState: Longword; dwControlsAccepted: Longword; dwWin32ExitCode: Longword; dwServiceSpecif
2017-09-26 20:44:52
1533
转载 Innosetup状态页面和向导页面解释
1、安装: CurStepChanged所对应的全部状态:3种 1.1. CurStep = ssInstall --是在程序实际安装前(所有配置都准备好了) 1.2. CurStep =s sPostInstall --是实际安装完成后 1.3. CurStep = ssDone --是在一次成功
2017-09-23 15:01:09
712
转载 delphi Tservice类
TService属性介绍:AllowPause:是否允许暂停;AllowStop:是否允许停止;Dependencies:启动服务时所依赖的服务,如果依赖服务不存在则不能启动服务,而且启动本服务的时候会自动启动依赖服务;DisplayName:服务显示名称;ErrorSeverity:错误严重程度;Interactive:是否允许和桌面交互;LoadGroup:加载
2017-09-21 18:32:50
864
原创 TJsonObject解析null值
在国内找TJsonObject数据类型对传入null值的处理,度娘不可靠,还是翻墙找外国资料靠谱。这个问题在2015年已经解决了,JsonSerializationConfig.NullConvertsToValueTypes := true;在代码中设置JsonSerializationConfig.NullConvertsToValueTypes的值为True就可以对null解析。当然
2017-09-09 09:49:39
1084
原创 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
1756
Delphi Indy10.6
2017-09-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人