登录
首页 » Delphi源码 » Delphi 读写物理扇区——实模式

Delphi 读写物理扇区——实模式

于 2022-01-24 发布 文件大小:566.66 kB
0 151
下载积分: 2 下载次数: 1

代码说明:

Delphi 读写物理扇区——实模式, asm //以下汇编代码中,只有第一参数、第二参数、pFunc的值是需要改变的,其余都是固定的写法    pushad    push ebp //#2,保存ebp    sub esp,$2c //#1,预留2c字节的栈空间    push Int13Reg16 //第一参数,如果没有参数,则不用push    //第二参数,如果没有参数,则不用push    mov edx, pFunc //函数地址    mov ebp,esp //    add ebp,$2c //ebp校正,是作者分析QT_Thunk时发现的    call QT_Thunk    add esp,$2c //#1,释放上面预留的2c字节的栈空间    pop ebp //#2,恢复ebp    mov byte ptr @result,al    popad    end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 鼠标双击TStatusBar时判断是哪一个panels
    Delphi 鼠标双击TStatusBar时判断是哪一个panels,这个是把窗口的状态栏分隔,每个隔断中显示不同的内容,用鼠标双击不同的隔断,程序将判断用户点击了哪个隔断,并获取到该栏中的文字内容显示出来。
    2023-02-09 01:20:03下载
    积分:1
  • Delphi 计算正负数绝对值
    Delphi 返回指定数值的绝对值,计算正负数绝对值的例子,FloatToStr(Abs)函数用法代码,示例中计算了小数、整数两种数据类型的绝对值,单击对应的箭头,即可查看计算结果,对应的三种计算方法,请参见以下代码:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    Edit2.Text := FloatToStr(Abs(-1.5));   end;   procedure TForm1.SpeedButton2Click(Sender: TObject);   begin    Edit4.Text := FloatToStr(Abs(-200));   end;   procedure TForm1.SpeedButton3Click(Sender: TObject);   begin    Edit6.Text := FloatToStr(Abs(-1.80));   end;
    2022-06-13 12:40:35下载
    积分:1
  • Delphi 百叶窗的方式显示图像
    百叶窗效果的图像显示,这个效果我觉得大家不会陌生吧,在电视上、电脑上,这种切换图片显示的方式还是挺常见的,像百叶窗的样式,本效果重在演示图像的解析。
    2022-02-04 23:25:14下载
    积分:1
  • Delphi 格式化DataGrid表格中的数据
    Delphi 格式化DataGrid表格中的数据,DataGrid网格列表在各种编程的数据库显示方面都使用广泛,因此对于Delphi的数据库编程,DataGrid的使用技巧是一定要撑握的,本源码所要演示的就是一个使用DataGrid的简单例子,将DataGrid表格中的数据格式式成你想要的格式,测试前请确保Delphi与数据库正常连接且有数据。
    2022-01-25 15:23:01下载
    积分:1
  • Delphi7利用鼠标绘制矩形焦点的
    本源代码主要演示Delphi7利用鼠标绘制矩形焦点,画出虚线框矩形,按住鼠标左键抖动矩形区域,即可显示虚线矩形框,可应用于需要拖动选择对象时作为选区使用,在Delphi中,这个功能使用Canvas实现:   procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,    Y: Integer);   begin    if IsDraw then    begin    if Count >1 then    DrawFocusRect(Canvas.Handle,FocuRect);    FocuRect.Right := X;    FocuRect.Bottom := Y;    DrawFocusRect(Canvas.Handle,FocuRect);    Inc(Count);    IsEndDraw := True;    end;   end;
    2023-02-14 21:35:04下载
    积分:1
  • Delphi7 获取文件的修改时间
    Delphi7 获取文件的修改时间,这是一个文件操作实例源代码,获取到文件被修改的时间,代码简单,适合Delphi新手学习参考。
    2022-03-25 03:51:22下载
    积分:1
  • Delphi 浏览性能数据库
    Delphi 浏览性能数据库,选择单个、本地的计数器,显示选择计数器的信息。
    2023-01-12 15:25:04下载
    积分:1
  • Delphi设计制作BMP图像的推拉动画效果
    Delphi设计制作BMP图像的推拉动画效果,类似PPT幻灯片中的图像飞入效果,图片本应该在窗口上显示,但经过本代码的控制后,图像由底部向上部被推出来,其实就是由下到上的图片滑动效果,有兴趣的可下载源码参考主文件代码。   注:本程序好像只对BMP图像有效,其它格式如JPG/gif等图像暂且不支持该动画效果。
    2022-02-03 23:17:10下载
    积分:1
  • Delphi 替换一个键盘按钮
    Delphi 替换一个键盘按钮,将数字1改为a。将键盘所代表的键位重新定义并判断,得到一个不同的键位值。
    2023-01-10 10:50:03下载
    积分:1
  • 窗口中的弹出式右键菜单-delphi
    窗口中的弹出式右键菜单-delphi PopupMenu源码,   procedure TForm1.Button1Click(Sender: TObject);   var    Poin:TPoint;   begin    Poin := Point(Button1.Left,Button1.Top+Button1.Height);    Poin := ClientToScreen(Poin);    PopupMenu1.Popup(Poin.X,Poin.Y);   end;
    2022-07-24 15:12:59下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载