大青椒

摘要： unit DataStructUnit; interface type txmlvulrd =record sname:string; svul:string; end; txmlbasedDataStruct = class private Fifissubitem: Boolean; funct 阅读全文

摘要： 四种消息传递办法： Send，Post，Perform，Dispatch 一、什么是消息？ 消息是windows对应用程序发送的有关‘发生了某种事件’的通知。例如点击鼠标，调整窗口大小或键盘上按下一个键，都会引起windows发送一条消息到应用程序中去，去通知应用程序发生了什么。 Windows以r 阅读全文

摘要： function Checkexeisrunning(ename:string):Boolean; var hwd:hwnd; scr:array [0..254] of Char; begin Result:=False; hwd:=GetWindow(Application.Handle,GW_ 阅读全文

摘要： as 把某个类型对象转换成所需要的类型。 is 判断某对象是否是某类型。 阅读全文

摘要： function Getdatestr:string; var fs:TFormatSettings; begin Result:=''; GetLocaleFormatSettings(GetUserDefaultLCID,fs); result:=fs.DateSeparator; end; f 阅读全文

摘要： MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。　1、函数原型及参数　function MessageBox(h 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文

摘要： 直接引用这个文件即可。 unit ApplicationInfo; interface uses Winapi.Windows, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, Syste 阅读全文

摘要： 按下 win+R，弹出运行界面中 输入 %windir%\system32\rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1 即可打开系统属性面板。 阅读全文

摘要： function Getnowshowpvirnodelist( nowvst: TVirtualStringTree): TList<PVirtualNode>; var cn:Integer; toppvnode,botmpvnode:PVirtualNode; pvirnodelists:TL 阅读全文