2015年8月21日
RichEdit中插入带背景色文本的一种思路
uses RichEdit;function TextToRtf( // 将文本处理为RTF格式 mText: WideString // 输入文本): WideString; // 返回处理后的RTF文本var I: Integer;begin Result := StringReplace... Read More
posted @ 2015-08-21 17:59 findumars Views(723) Comments(0) Diggs(0)
Delphi中的THashTable
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！ 使用Hashtable, Read More
posted @ 2015-08-21 17:58 findumars Views(738) Comments(0) Diggs(0)
子类化窗口控件的窗口过程（系统级替换，与直接替换控件的WndProc方法不是一回事）
要说灵活性，自然是比不上Delphi自带的覆盖WndProc，或者替换WndProc方法。unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Controls, ... Read More
posted @ 2015-08-21 17:56 findumars Views(457) Comments(0) Diggs(0)
AV 地址错误 map 文件 根据地址报错，查 Delphi 代码
1. 首先需要设置程序生成 map 文件。Project -> Options -> Linker -> Map file , Detailed2. 计算公式Edit2.Text := IntToHex(StrToInt('$'+ Edit1.Text) - StrToInt('$00400000'... Read More
posted @ 2015-08-21 17:52 findumars Views(5166) Comments(0) Diggs(0)
判断软件的闲置时间（使用Application.OnMessage过滤所有键盘鼠标消息）
GetLastInputInfo是检测系统输入的，应用到某个程序中不合适！此问题有二种解法来监控输入消息：1.用线程级HOOK，钩上MOUSEHOOK与KEYBOARDHOOK2.在Application.OnMessage中做处理显然，用第2种方法比较方便！众所周知，键盘与鼠标消息都是队列消息，需... Read More
posted @ 2015-08-21 17:48 findumars Views(1111) Comments(0) Diggs(1)