windsonvip - 博客园

DELPHI 检测服务器地址是否有效

摘要：利用DELPH 的ICMP控件检测服务器地址 function CheckNetServer():Boolean; begin IdIcmpClient1.Host := '192.168.1.230'; //服务器地址 IdIcmpClient1.Ping; if IdIcmpClient1.Re 阅读全文

posted @ 2020-03-16 17:43 windsonvip 阅读(279) 评论(0) 推荐(0) 编辑

Delphi 动态生成进度条窗体

摘要：在implementation加入下面 uses Gauges; var Gauge1: TGauge; 加入Timer1控件，设为false procedure TForm1.Button1Click(Sender: TObject); var form2: TForm; begin form2 阅读全文

posted @ 2020-03-16 17:38 windsonvip 阅读(1017) 评论(0) 推荐(0) 编辑

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

摘要： delphi 执行一个外部程序，当外部程序结束后言主程序立即响应我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。这样的程序是如何做到的呢？下述代码就能完成！ uses shellAPI; procedure TFor 阅读全文

posted @ 2020-03-16 17:25 windsonvip 阅读(275) 评论(0) 推荐(0) 编辑

delphi获取DOS命令行输出函数运行CMD命令并获取结果

摘要： procedure TForm1.Button4Click(Sender: TObject); var hReadPipe,hWritePipe:THandle; si:STARTUPINFO; lsa:SECURITY_ATTRIBUTES; pi:PROCESS_INFORMATION; mDo 阅读全文

posted @ 2020-03-16 17:23 windsonvip 阅读(1771) 评论(0) 推荐(0) 编辑

delphi 使控件变成圆角的方法

摘要： procedure RoundControl(Control: TWinControl; arc1, arc2: Integer); var R: TRect; Rgn: HRGN; begin with Control do begin R := Control.ClientRect; Rgn : 阅读全文

posted @ 2020-03-16 17:22 windsonvip 阅读(302) 评论(0) 推荐(0) 编辑

delphi判断字符是否是汉字

摘要： function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

posted @ 2020-03-16 17:20 windsonvip 阅读(201) 评论(0) 推荐(0) 编辑

delphi获得唯一ID字符串

摘要： //这是我三层开发中常用的一个函数，直接调用CreateSortID uses System.Win.ComObj,System.RegularExpressions,System.StrUtils,System.SysUtils; function CreateID(ll: Integer): s 阅读全文

posted @ 2020-03-16 17:18 windsonvip 阅读(735) 评论(0) 推荐(0) 编辑

MD5加密BASE64加解密

摘要： MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。 procedure TForm19.Button8Click(Sender: TObject 阅读全文

posted @ 2020-03-16 17:16 windsonvip 阅读(1328) 评论(0) 推荐(0) 编辑

cxDBTreeList：最简单的节点图标添加方法

摘要：先在窗体上放ImageList关联到cxDBTreeList，在cxDBTreeList的GetNodeImageIndex事件中写如下： procedure cxDBTreeList1GetNodeImageIndex(Sender: TcxCustomTreeList; ANode: TcxTr 阅读全文

posted @ 2020-03-16 17:13 windsonvip 阅读(451) 评论(0) 推荐(0) 编辑

dxTabbedMDIManager1关闭窗体

摘要： procedure TfrmJianKongXinXi.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end; procedure TfrmJianKongXinXi.FormCloseQuery( 阅读全文

posted @ 2020-03-16 17:12 windsonvip 阅读(630) 评论(0) 推荐(0) 编辑

Delphi Base

导航

公告