摘要： 代码转自“我在沉睡”的博客，经测试在VMWare7.0.0中能够正常检测。function IsInsideVMWare: Boolean;var rc: Boolean;begin rc := False; try asm push edx push ecx push ebx mov eax, 'VMXh' mov ebx, 0 // any value but not the MAGIC VALUE mov ecx, 10 // get VMWare version mov edx, 'VX' // port number in eax, dx // rea 阅读全文

摘要： 要实现对双击左CTRL键的监控，必须玩钩子了。代码很简单，新建VCL Form的工程，在窗体上放两个按钮，分别叫做 btnHook 和 btnUnHook。调用就是 BeginHook 和 EndHook 这两个函数，窗体代码如下：unit frmTestHookWinKey;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) btnHook: TButton; 阅读全文

摘要： 查看整个相册 function TLogger.GetLogFileName: string;begin // 如果在光盘运行，则选择临时目录存储，否则就存在 exe 目录下 // Log文件名含有当前用户名，如 ALTRun.Administrator.log if GetDriveType(PChar(ExtractFileDrive(ParamStr(0)))) = DRIVE_CDROM... 阅读全文