2015年11月27日
获取进程列表及相关信息
闲着没事，看着任务管理器好玩，查资料先简单实现一下，代码中没有加入获取CPU占用率的代码，这个代码网上很多，只是不喜欢那种写法，这里就不写了。以后继续完善，对于System Process和System的信息还没法获得，那位兄弟知道可以提个醒。代码如下[delphi]view plaincopyun... Read More
posted @ 2015-11-27 23:39 findumars Views(790) Comments(0) Diggs(0)
窗体的扩展样式GWL_EXSTYLE用于SetWindowLong
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED ); WS_EX_ACCEPTFILES = 0x00000010 指明了一个已创建 Read More
posted @ 2015-11-27 23:38 findumars Views(534) Comments(0) Diggs(0)
内存映射对于大文件的使用
平时很少使用大文件的内存映射，碰巧遇到了这样的要求，所以把过程记录下来，当给各位一个引子吧，因为应用不算复杂，可能有考虑不到的地方，欢迎交流。对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不... Read More
posted @ 2015-11-27 23:36 findumars Views(1182) Comments(0) Diggs(0)
Delphi实现全局鼠标钩子
其中涉及到的一些API，网上均能查到详细的解释，这里不再熬述。源码下载因为是全局钩子，所以要用dll注入。用到的鼠标消息结构如下：[delphi]view plaincopyPMouseHookStruct=^TMouseHookStruct;{$EXTERNALSYMtagMOUSEHOOKSTR... Read More
posted @ 2015-11-27 23:35 findumars Views(1832) Comments(0) Diggs(0)
全局键盘钩子(WH_KEYBOARD)
为了显示效果，在钩子的DLL中我们会获取挂钩函数的窗体句柄，这里的主程序窗体名为"TestMain"，通过FindWindow查找。KeyBoardHook.dll代码[delphi]view plaincopylibraryKeyBoardHook;{ImportantnoteaboutDLLme... Read More
posted @ 2015-11-27 23:33 findumars Views(2328) Comments(0) Diggs(0)