请教如何在无窗口显示的情况下执行一段dos命令？(0分)

运行->cmd
c:/>netsh
c:/>dhcp
c:/>server 127.0.0.1
...
这些dos命令如何在程序里面执行，而且执行的时候没有窗口显示执行过程？？

@echo off
dos命令

或
dos命令>nul

你是不是指用delphi调用上面的语句啊？

可以做成一个.bat文件，在程序中用ShellExecute调用该.bat文件即可。如：
ShellExecute(0,'Open','c:/test.bat',nil, nil, SW_HIDE)

对，我指的是在程序里面执行这些连续的dos命令。

做成bat的话，如果这些dos命令需要多次执行，那么最好这些dos命令能够做成宏，如果这些宏当中有变量参数呢？

wufo 同志的意见是对的

做成批处理比较好

请教批处理当中如何设置变量，然后运行当中将参数传递给变量。

在windows下面之行一个程序实际上是创建一个进程,使用CreateProcess函数.过程是这样的:
执行起来的程序实际上是windows shell调用CreateProcess函数来激活的.所以,你所执行的程序就是shell的子进程.但是,shell通过调用CreateProcess是自动切断你的程序与shell只见的这种联系.
下面的代码是非常流行的.
例子为:

s:=apppath+'mini_fpc/ppc386 -WR '+apppath+'mini_fpc/'+MyDll+'.pp';
WinExecAndWait32(s,0);
function WinExecAndWait32(FileName:String; Visibility :integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result :=DWORD(-1) { pointer to PROCESS_INF }
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,DWORD(Result));
end;
end;

你可以连续调用上面的子程序.当然,使用批处理是个好办法

如果我用批处理的话，怎么运行这个批处理的时候不显示那个黑框框，闪都不闪现一下啊？

s:=你的批处理文件(带路径);
WinExecAndWait32(s,0);

哇哈哈哈，用得着这么麻烦吗？？

兄弟教你个最简单的方法。
WinExec(PChar('CMD.exe "/C netsh"'), SW_hide);
WinExec(PChar('CMD.exe "/C dhcp"'), SW_hide);
WinExec(PChar('CMD.exe "/C server 127.0.0.1"'), SW_hide);

不过好像没有分啊。。。。