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

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

于 2022-01-24 发布 文件大小:566.66 kB
0 170
下载积分: 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窗口淡入淡出渐变fadein fadeout动画效果
    Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果,除了渐变,还有其它的动画形式,比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变,其它动画效果被注释掉了,如果你想用,可以去掉注释标记。   //淡入效果   //AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);   //从中心扩散   //AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);   //水平从左到右   //AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);   //水平从右到左   //AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);   //垂直从上到下   //AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);   //垂直从下到上
    2022-06-11 17:51:21下载
    积分:1
  • Delphi 单击StringGrid列进行排序
    Delphi 单击StringGrid列进行排序,StringGrid行的任意列单击,就会重新排序一次,排序规则可以自己定义,这种排序功能可有效提升StringGrid显示数据的易用性,增强其功能,提升用户体验,本例子源代码相当简单,对学习者也有很好的帮助作用。参见以下代码:   begin    if Button = mbRight then Exit;    TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow);    if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit;    StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol);    if vOldCol = vCol then    vOldCol := - vOldCol    else    vOldCol := vCol;   end;
    2022-05-29 23:30:47下载
    积分:1
  • Delphi 实现图像热点功能
    Delphi 实现图像热点功能,实现一张图片上不同形状区域的热点,定义椭圆形、四边形、三角形的区域变量的热点,相关代码如下:   var    thepoint:array [1..8] of tpoint;//存储多边形顶点坐标    count:integer;    pointnum:array [1..2] of integer;   begin   //四边形顶点坐标,首末点封闭    thepoint[1]:=point(135,99);    thepoint[2]:=point(105,183);    thepoint[3]:=point(129,201);    thepoint[4]:=point(188,92);    thepoint[5]:=point(135,99);    count:=5;//四边形顶点数目,首末点为一点    fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域    elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域    //第一个三角形顶点坐标    thepoint[1]:=point(118,67);    thepoint[2]:=point(32,28);    thepoint[3]:=point(17,90);    thepoint[4]:=point(118,67);    //第二个三角形顶点坐标    thepoint[5]:=point(155,44);    thepoint[6]:=point(202,91);    thepoint[7]:=point(277,44);    thepoint[8]:=point(155,44);    pointnum[1]:=4;//第一个三角形顶点数目    pointnum[2]:=4;//第二个三角形顶点数目    count:=2;//三角形数目   //生成由两个三角形构成的三角形区域   tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);   end;
    2022-01-26 08:02:50下载
    积分:1
  • Delphi 主窗体和子窗体显示示例
    Delphi 主窗体和子窗体显示示例,这类功能在平时的delphi编程中也是十分常见的,我们需要在主窗口中添加一个按钮,点击后弹出一个子窗口,对窗口布局来说是一种扩展。本示例简单,适合初学者学习参考。
    2023-01-23 15:15:08下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • Delphi 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
    Delphi 创建多个独立的子窗体 脱离父窗口而显示,但是却可通过父窗口关闭打开的所有子窗口,就是通过主窗口内的关闭按钮,关闭独立于父窗口之外的子窗口,这个功能我感觉很实用吧,源代码中也包括了多个子窗口的代码,父子窗口之间是如何关联起来的呢,请参见这个源代码实例 。
    2022-01-25 17:06:08下载
    积分:1
  • Delphi7 计算汉字的笔划
    Delphi7 计算汉字的笔划有几划,输入一个汉字,本程序将计算出这个字有多少笔划,最后将结果将输出一个整数。
    2022-12-25 04:20:03下载
    积分:1
  • Delphi 快速查询文件
    Delphi 快速查询文件,比较老的代码,搜索文件的地址需要手工输入哦,查询的结果会显示在空白处。返回查询的代码如下:   List := TStringList.Create;//创建字符传列表   try    spec := ExtractFileName(filespec);//返回指定文件名    RFindFile(ExtractFilePath(filespec));//返回指定路径    Result := list;//函数返回值是List;
    2022-03-19 10:17:26下载
    积分:1
  • Delphi数据库编程案例:教材管理系统
    这是一款基于Delphi和Access数据库的编程案例:教材管理系统源码,经过修正完善后可作为学校的教材管理程序,功能模块主要有:系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
    2022-04-14 14:29:20下载
    积分:1
  • 轻型网络聊天Delphi程序-
    轻型网络聊天Delphi程序-源码,类似聊天室, 很简单,这是个多年前的网络编程例子,聊天过程中显示对方的IP,和当前好友姓名,还支持删除聊天记录。用户注册时,可对注册信息进行初始验证,比如用户名是否存在、姓名和IP地址不能空等,有一些技巧对Delphi打基础有帮助。
    2023-05-16 10:20:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载