怎样在Delphi中执行Dos的外部命令?(0分)

李

李飞虹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #1

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #2

winexec

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #3

ShellExecute

直接执行外部命令名(其实是运行一个程序)
或者用'Command.com /k commandfile'作为命令来执行也可以.

注意长文件名的问题

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #4

Procedure DOSCommand(Commander,Param:String);
Begin
WinExec(PChar(Commander+' '+Param),SW_NORMAL);
End;

例子:
a.执行EDIT.EXE
DOSCommand('C:/WINDOWS/COMMAND/EDIT.EXE','');

b.执行EDIT.EXE加编辑的文件
DOSCommand('C:/WINDOWS/COMMAND/EDIT.EXE','readme.txt');

c.执行DIR：
DOSCommand('C:/WINDOWS/COMMAND.COM /C','DIR C:/WINDOWS/W/P');

给我加分吧! 谢谢!!!

 

林

林沐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #5

uses ShellAPI; // 提供 ShellExecute 函数在
demos/doc/filmanex目录下，
有一FMXUtils中提供各种文件操作增强函数，
其中Function ExecuteFile(filename,params,WDir,SW_SHOW)
可运行外部程序。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #6

接受答案了.