L
LianZanQiang
Unregistered / Unconfirmed
GUEST, unregistred user!
倾家荡产求答案：如何锁定驱动器？
通过修改注册表来隐藏驱动器的方法不时可见，但一到 DOS 环境下就原形
毕露。近日见一据说可以封锁驱动器的 PASCAL 程序：
program lock;
uses crt,dos;
var
r: registers;
begin
ASM push es END;
r.ah := $52;
msdos(r);
mem[r.es:r.bx+$21] := 0;
{ 假设锁 A 驱。 B 驱为 1，C 驱为 2, ... }
ASM pop es END;
end;
请问在 DELPHI 下如何实现上述的功能?
通过修改注册表来隐藏驱动器的方法不时可见，但一到 DOS 环境下就原形
毕露。近日见一据说可以封锁驱动器的 PASCAL 程序：
program lock;
uses crt,dos;
var
r: registers;
begin
ASM push es END;
r.ah := $52;
msdos(r);
mem[r.es:r.bx+$21] := 0;
{ 假设锁 A 驱。 B 驱为 1，C 驱为 2, ... }
ASM pop es END;
end;
请问在 DELPHI 下如何实现上述的功能?