常用消息常量
摘要：WM_KEYDOWN 0x100 //键盘按下WM_KEYUP 0x101 //键盘弹起WM_CHAR 0x102 //字符WM_MOUSEMOVE 0x200 //鼠标移动WM_LBUTTONDOWN 0x201 //鼠标左键按下WM_LBUTTONUP 0x202 //鼠标左键弹起
阅读全文
XML简单操作
摘要：uses XMLDoc, XMLIntf; function TAServerTbl.Init(szSerPath: string): Boolean; var pData: PServer; XMLServer: TXMLDocument; NodeList1, NodeList2: IXMLNodeList; Node1, Node2: IXMLNode; ServerUrl: TStringList; i, j, nLen: Integer; szTemp: AnsiString; begin Clear; try XMLServer := TXMLDocument...
阅读全文
内存映射
摘要：procedure TFmClient.CreateMemMapping(); var szMappingName: string; begin szMappingName := '共享内存名字'; //如果打开失败,就创建 g_MemMappingHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, PWideChar(szMappi...
阅读全文
文本简单操作
摘要：uses SysUtils //文本替换 var SourseList: TStringList; Sourse: TStrings; nA, nB, nC: Integer;begin Result := 0; SourseList := TStringList.Create(); Sourse := TStringList.Create(); SourseList.LoadFromFile('...
阅读全文
一些窗口操作
摘要：//窗口置顶 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); //窗口启动后,不在任务栏显示窗口 //先在.dpr文件中改掉这句 Application.MainFormOnTaskbar := False; //再在显示事件中 procedure TForm2.FormShow(Sen...
阅读全文
创建进程得到窗口句柄
摘要：创建进程后得到该进程的主窗口句柄var StartUpInfo: TStartUpInfoA; ProcessInfo: TProcessInformation; gui: tagGUITHREADINFO; hAcount: HWND;begin FillChar(StartUpInfo, Sizeof(TStartUpInfo), #0); FillChar(ProcessInfo, Sizeof(TProcessInformation), #0); StartUpInfo.cb := Sizeof(TstartUpInfo); try CreateProcessA(PAnsiChar(F
阅读全文
创建进程-常用函数
摘要：1: CreateProcessprocedure TForm1.Button1Click(Sender: TObject); var Str: String; StartUpInfo: TStartUpInfo; ProcessInfo: TProcessInformation; begin FillChar(StartUpInfo, Sizeof(TStartUpInfo), #0);...
阅读全文
内存-常用函数
摘要：FillChar - 填充字节 -------------------------------------------------------------------------------- var s: array[0..9] of Char; begin FillChar(s,SizeOf(s),'a'); ShowMessage(s); {aaaaaaaaaa} end; -----...
阅读全文
Socket I/O模型全接触
摘要：//老陈有一个在外地工作的女儿，不能经常回来，老陈和她通过信件联系。他们的信会被邮递员投递到他们的信箱里。 //这和Socket模型非常类似。下面我就以老陈接收信件为例讲解Socket I / O模型。 //一：select模型 //老陈非常想看到女儿的信。以至于他每隔10分钟就下楼检查信箱，看是否有女儿的信， //在这种情况下，"下楼检查信箱"然后回到楼上耽误了老陈太多的时间，以至于老陈无法做其...
阅读全文
编译指令 {$INCLUDE} + {$POINTERMATH ON}
摘要：本文转自万一老师的博客 原文出处: http://www.cnblogs.com/del/category/168694.html使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数,INC文件: -------------------------------------------------------------------------------- //这是一个简单、方便而又...
阅读全文
for in 循环
摘要：本文转自万一老师的博客 原文出处: http://www.cnblogs.com/del/archive/2008/11/12/1332011.html 此语句只对Delphi 2005以后的版本有效 一、遍历 Tstrings -------------------------------------------------------------------------------- va...
阅读全文
静,动态数组总结
摘要：本文转自万一老师的博客 原文出处: http://www.cnblogs.com/del/category/114641.html静态数组的定义方法: //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<&l...
阅读全文
TStringList 常用方法与属性
摘要：本文转自万一老师的博客原文出处: http://www.cnblogs.com/del/archive/2007/12/10/990040.htmlvar List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Stri
阅读全文
理解 Delphi 的类(十二) - 深入属性[1]
摘要：本文转自万一老师的博客 原文地址: http://www.cnblogs.com/del/archive/2008/01/18/1044301.html //关于属性的话题还有很多, 譬如: 数组属性、默认属性、class 属性等等. //先总结一下前面提到过的属性吧. ----------------------------------------------------------------...
阅读全文
路径操作
摘要：本文转自万一老师博客.http://www.cnblogs.com/del/archive/2007/12/11/990797.html----------------------------------------------------------------------uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //取DLL所在目录 F:\自做项目\XXX\MsgInjectTest\Release\Msgdll.dll szMsgDllPat..
阅读全文
TPerlRegEx
摘要：type TPerlRegEx = class(TComponent) public constructor Create(AOwner: TComponent); override; destructor Destroy; override; //此函数可以自动为特殊字符加转义符号 \ classfunction EscapeRegExChars(const S: string): ...
阅读全文
浙公网安备 33010602011771号