随笔分类 -  Delphi

xml文件通用打开方式
摘要：unit DataStructUnit; interface type txmlvulrd =record sname:string; svul:string; end; txmlbasedDataStruct = class private Fifissubitem: Boolean; funct 阅读全文
posted @ 2021-06-26 08:39 大青椒 阅读(224) 评论(0) 推荐(0)
Delphi中消息机制
摘要：四种消息传递办法： Send，Post，Perform，Dispatch 一、什么是消息？ 消息是windows对应用程序发送的有关‘发生了某种事件’的通知。例如点击鼠标，调整窗口大小或键盘上按下一个键，都会引起windows发送一条消息到应用程序中去，去通知应用程序发生了什么。 Windows以r 阅读全文
posted @ 2021-05-31 21:08 大青椒 阅读(353) 评论(0) 推荐(0)
检测某个软件是否正在运行
摘要：function Checkexeisrunning(ename:string):Boolean; var hwd:hwnd; scr:array [0..254] of Char; begin Result:=False; hwd:=GetWindow(Application.Handle,GW_ 阅读全文
posted @ 2021-03-26 12:40 大青椒 阅读(316) 评论(0) 推荐(0)
as 和is 的用法差异
摘要：as 把某个类型对象转换成所需要的类型。 is 判断某对象是否是某类型。 阅读全文
posted @ 2021-02-03 09:01 大青椒 阅读(242) 评论(0) 推荐(0)
关于获取日期格式后进行显示的处理
摘要：function Getdatestr:string; var fs:TFormatSettings; begin Result:=''; GetLocaleFormatSettings(GetUserDefaultLCID,fs); result:=fs.DateSeparator; end; f 阅读全文
posted @ 2020-10-22 15:50 大青椒 阅读(109) 评论(0) 推荐(0)
MessageBox用法详解
摘要：MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。　1、函数原型及参数　function MessageBox(h 阅读全文
posted @ 2020-10-21 08:28 大青椒 阅读(3835) 评论(0) 推荐(0)
delphi 中Generics Collections TQueue : Enqueue、Dequeue示例
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2020-10-15 14:17 大青椒 阅读(333) 评论(0) 推荐(0)
获取当前软件版本号
摘要：直接引用这个文件即可。 unit ApplicationInfo; interface uses Winapi.Windows, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, Syste 阅读全文
posted @ 2020-09-18 13:07 大青椒 阅读(316) 评论(0) 推荐(0)
获取当前界面中Virtualstringtree有效显示区域中的pvirtualnode的列表
摘要：function Getnowshowpvirnodelist( nowvst: TVirtualStringTree): TList<PVirtualNode>; var cn:Integer; toppvnode,botmpvnode:PVirtualNode; pvirnodelists:TL 阅读全文
posted @ 2020-09-15 10:21 大青椒 阅读(167) 评论(0) 推荐(0)