【Delphi】获取EIP

var
  EIP: Cardinal;

procedure GetEIP(); stdcall;
asm
  pop eax;
  mov EIP,eax;
  push eax;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetEIP();
  ShowMessage(‘Button1Click, 0x‘ + IntToHex(EIP, 8));
end;

记录一下。由C++转成Delphi的获取EIP代码。

时间： 2024-10-10 04:55:59

【Delphi】获取EIP的相关文章

获取EIP（汇编语言直接给Delphi变量赋值）

var EIP: Cardinal; procedure GetEIP(); stdcall; asm pop eax; mov EIP,eax; push eax; end; procedure TForm1.Button1Click(Sender: TObject); begin GetEIP(); ShowMessage('Button1Click, 0x' + IntToHex(EIP, 8)); end; 记录一下.由C++转成Delphi的获取EIP代码. http://www.cn

delphi 获取文件的最新修改时间 http://www.delphitop.com/html/wenjian/64.html

delphi 获取文件的最新修改时间 作者:admin 来源:未知 日期:2010/1/28 13:15:22 人气:1054 标签: QQ空间新浪微博腾讯微博腾讯朋友QQ收藏百度空间百度贴吧更多0 delphi 获取文件的最新修改时间 varDateTime: TDateTime;beginFileAge('C:\Windows\Notepad.exe', DateTime);ShowMessage(DateTimeToStr(DateTime));end;

Delphi 获取MAC 地址

function GetMacAddress(index:integer):string;var   ncb : TNCB;                {NetBios控制块}   AdapterS : TAdapterStatus; {网卡状态结构}   LanaNum : TLanaeNum;       {Netbios Lana}   i : integer;   rc : Char;                 {NetBios的返回代码}   str : String;beg

delphi 获取驱动盘的卷标 号

{获取C盘的卷标 格式化硬盘卷标改变} //GetHardDiskSerial('c:\') function GetHardDiskSerial(Drive: string): string; var VolumeSerialNumber: DWORD;    MaximumComponentLength: DWORD;    FileSystemFlags: DWORD;  begin    if Drive[Length(Drive)]=':' then Drive := Drive + 

delphi 获取 TreeView选中的文件路径

//获取 TreeView选中的文件路径 unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    TreeView1: TTreeView;    ListView1: TListView;    RichEdit1: TRic

Delphi获取当前系统时间（使用API函数GetSystemTime）

在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论. 该书第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量.例如: procedure TForm1.Button2Click(Sender: TObject); var D

Delphi获取与设置系统时间格式，即GetLocaleInfo和SetLocaleInfo

在Delphi中,特别是在写管理系统软件时,经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来,或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作. 在进行时间或日期的转换时,会使用系统当前设定的时间日期格式.而如果时间日期格式与字符串中的表示方式不相符,会使转换过程失败.例如当前短日期格式设定为'yyyy/MM/dd',而要转为 '2006-10-20'这样的字符串为日期,就会报

delphi 获取可执行文件的当前路径

在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“/”. ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/temp ShowMessage(ExtractFilePath(Application.Exename)); // 返回值为 c:/temp/ 相同点: 如

怎么使用Delphi获取当前的时间，精确到毫秒

直接先参考下面的代码段,很简单很直白很方便 var currentTime:TSystemTime; year, month, day, hour, minute, second, millisecond: string; datetime: string; begin GetSystemTime(currentTime); year:= IntToStr(currentTime.wYear); month:= IntToStr(currentTime.wMonth); day:= IntToS