急！！！如何在Delphi使用Debug命令？(50分)

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #1

如何在程序中执行Debug命令
如:
c:/windows/debug
-O 2E3 80
-O 2E2 FF

如果做成批理文件用Delphi来执行该批处理文件，
那该批处理文件又该如何写呢？

 

L

LuJuhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #2

如果是在Win98下，可以这么用，Winnt/2k/xp下不行，需要用DirectIO之类的控件。

首先编辑一个文本文件，取名为cmd.txt，内容为：
o 2e3 80
o 2e2 ff
q
然后在delphi中执行shell命令：
debug < cmd.txt

 

L

LuJuhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #3

注意q后面一定要有回车！
一般可以这样：
copy con cmd.txt
...
...
q
^Z

 

B

Bxch_1000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #4

嵌入汇编
asm
MOV DX,$2E3
MOV AL,$80
OUT DX,AL

MOV DX,$2E2
MOV AL,$FF
OUT DX,AL
end;

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-01

• #5

多人接受答案了。