摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Tlhelp3... 阅读全文
posted @ 2014-10-18 14:13 孤舟残月浅笑嫣然 阅读(495) 评论(0) 推荐(0) 编辑
摘要: WinAPI: GetClassName - 获取指定窗口的类名 //声明: GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小} ):... 阅读全文
posted @ 2014-10-18 14:11 孤舟残月浅笑嫣然 阅读(3160) 评论(0) 推荐(0) 编辑
摘要: Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput ... 阅读全文
posted @ 2014-10-18 14:09 孤舟残月浅笑嫣然 阅读(392) 评论(0) 推荐(0) 编辑
摘要: 首先有两个自定的转换函数: function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 t... 阅读全文
posted @ 2014-10-18 14:08 孤舟残月浅笑嫣然 阅读(375) 评论(0) 推荐(0) 编辑
摘要: 一个常见的编程任务是枚举所有运行的"应用程序"。Windows任务管理器就是一个很好的例子。它用两种方式列出"应用程序"。任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口"。第二个选项卡列出系统中的所有"进程"。本文提供了如何执行这些任务的详细信息。枚举顶层窗口如果将枚举进程与枚举桌面上的顶层... 阅读全文
posted @ 2014-10-18 14:05 孤舟残月浅笑嫣然 阅读(1375) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, AppEvnt... 阅读全文
posted @ 2014-10-18 13:56 孤舟残月浅笑嫣然 阅读(451) 评论(0) 推荐(0) 编辑
摘要: 原理分析: 这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile; 用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放; 然后就等待 WM_DROPFILES 消息, 并用 DragQueryFi... 阅读全文
posted @ 2014-10-18 13:54 孤舟残月浅笑嫣然 阅读(338) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1... 阅读全文
posted @ 2014-10-18 13:52 孤舟残月浅笑嫣然 阅读(517) 评论(0) 推荐(0) 编辑
摘要: unit Secrity; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30;{重要引用} t... 阅读全文
posted @ 2014-10-18 13:50 孤舟残月浅笑嫣然 阅读(607) 评论(0) 推荐(0) 编辑
摘要: Uses MemoryCpuUtils;//首先引用该单元 //声明下列变量用来存储读取的数值 Var iTotalPhysics, iTotalVirtual, iTotalPageFile, iCurPhysics, iCurVirtual, iCurPageF... 阅读全文
posted @ 2014-10-18 13:48 孤舟残月浅笑嫣然 阅读(1762) 评论(0) 推荐(0) 编辑