www.pudn.com > UCtrl.rar > Device.pas

unit Device; 
 
interface 
uses 
  Windows; 
const 
  DBT_DEVICEARRIVAL = $8000; // system detected a new device 
  DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone 
  DBT_DEVTYP_VOLUME = $00000002; // logical volume 
  DBTF_MEDIA = $0001; // media comings and goings 
type 
  PDEV_BROADCAST_HDR = ^TDEV_BROADCAST_HDR; 
  TDEV_BROADCAST_HDR = packed record 
    dbch_size: DWORD; 
    dbch_devicetype: DWORD; 
    dbch_reserved: DWORD; 
  end; 
  PDEV_BROADCAST_VOLUME = ^TDEV_BROADCAST_VOLUME; 
  TDEV_BROADCAST_VOLUME = packed record 
    dbcv_size: DWORD; 
    dbcv_devicetype: DWORD; 
    dbcv_reserved: DWORD; 
    dbcv_unitmask: DWORD; 
    dbcv_flags: WORD; 
  end; 
  Dinfo = record 
    Ins: Boolean; 
    Dsk: Dword; 
  end; 
 
const 
  DFileName = 'SinFix.Dll'; 
function SetRegEnabled(): Bool; stdcall; external DFileName; 
function SetTaskEnabled(): Bool; Stdcall; external DFileName; 
procedure ClearAutoInfo; StdCall; external DFileName; 
procedure ShowAllRoot(); Stdcall;external DFileName; 
procedure ShowRootDisk(I: Dword); Stdcall; external DFileName; 
function SYSInstall(Path: PChar): Bool; external DFileName; 
function SYStartAndRun(): Bool; external DFileName; 
function SYStopAndFree(): Bool; external DFileName; 
function SYSUnInstall():Bool; external DFileName; 
procedure SetAutoRun(); stdcall;external DFileName; 
procedure DelAutoRun(); stdcall;external DFileName; 
function CheckAutoRun():Bool;stdcall;external DFileName; 
const 
 ifo0='By:若我 QQ:86287344 '; 
 
//   ifo0='轻院物理系.若我.86287344 '; 
  ifo1='显示根目录隐藏文件...'; 
  ifo2='解决打不开盘符...'; 
  ifo3='解锁注册表'; 
  ifo4='解锁任务管理器...'; 
  ifo5='隐藏程序...'; 
  ifo6='查看详细说明...'; 
const 
  dinf1='文件处理完毕...'; 
  dinf2='盘符处理完毕'; 
  dinf3='注册表处理完毕'; 
  dinf4='任务管理器处理完毕'; 
  dinf5=''; 
  dinf6='欢迎使用 UCtrl 监控程序'; 
implementation 
 
end.