当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

让硬盘休眠-ParkDisk程序

让硬盘休眠-ParkDisk程序

更新时间:2026-01-05 文章作者:未知 信息来源:网络 阅读次数:

PROCEDURE ParkDisk; VAR Regs: Registers; BEGIN Regs.AL := 00; Intr(13,Regs); Assert...
 PROCEDURE ParkDisk;
  VAR Regs: Registers;
  BEGIN
    Regs.AL := $00;
    Intr($13,Regs);
    Assert((Regs.Flags AND FCarry) = 0,
      'Error getting disk parameters - AL returns '+IntToStr  (Regs.AL,0));
    Regs.AH := $0C;
    Regs.DL := $80;
    Intr($13,Regs);
    Assert((Regs.Flags AND FCarry) = 0,
      'Error parking disk - AL returns '+IntToStr(Regs.AL,0));
  END; 

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行