用delphi7怎么调用DOS并显示在label(标签)里??

第一：为什么要用label？用Memo不是更好？
第二：对于内部命令要写成cmd /c dir *.*的格式，Win98是command /c dir *.*，因为内部命令没有对应的可执行文件。

核心代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
    SecurityAttributes : TSecurityAttributes;
    hProcess           : TProcessInformation;
    StartupInfo        : TStartupInfo;
    hReadPipe,hWritePipe : THandle;
    Buff : array [0..256] of char;
    Num : DWORD;
    dwExit:DWORD;
    SendName : String;
    s : String;
begin
    SecurityAttributes.nLength:=Sizeof(SecurityAttributes);
    SecurityAttributes.lpSecurityDescriptor:=nil;
    SecurityAttributes.bInheritHandle:=true;
    CreatePipe(hReadPipe,hWritePipe,@SecurityAttributes,0);
    FillChar(StartupInfo,Sizeof(StartupInfo),#0);
    StartupInfo.cb:=Sizeof(StartupInfo);
    StartupInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
    StartupInfo.wShowWindow:=SW_HIDE;
    StartupInfo.hStdOutput:=hWritePipe;
    StartupInfo.hStdError:=hWritePipe;
    if CreateProcess(nil,PChar(self.Edit1.Text),
                     @SecurityAttributes,
                     @SecurityAttributes,
                     true,0,nil,nil,
                     StartupInfo,
                     hProcess) then
    begin
        CloseHandle(hProcess.hThread);
        WaitForSingleObject(hProcess.hProcess,INFINITE);
        GetExitCodeProcess(hProcess.hProcess,dwExit);
        CloseHandle(hProcess.hProcess);
        CloseHandle(hWritePipe);
        Num:=0; s:='';
        while ReadFile(hReadPipe,Buff,256,Num,nil) do
        begin
            Buff[Num]:=#0;
            s:=s+Buff;
        end;
        CloseHandle(hReadPipe);
        //
        self.Label1.Caption:=s;
    end
    else
        MessageBox(self.Handle,PChar('调用命令 '+self.Edit1.Text+' 失败！'),'调用失败',MB_OK or MB_ICONWARNING);
end;

设置label1的AutoSize属性为false,WordWrap属性为true.

procedure TForm1.Button1Click(Sender: TObject);
var
  cmd:string;
  tmp:integer;
  buffer:array [0..1000]of char;
begin
  cmd:=edit1.Text;
  winexec(pchar('cmd /c '+cmd+' >tmp.tmp'),sw_hide);
  sleep(100);//如果要执行的命令比较耗时,请设置一定的等待时间.(内部命令不必...)
  tmp:=fileopen('tmp.tmp',fmOpenReadWrite);
  fileread(tmp,buffer,sizeof(buffer));
  label1.Caption:=buffer;
  fileclose(tmp);
end;

要输入：cmd /c dir

这方法对用DIR很合我意思了..哈哈..只是我再用ipconfig想查下IP就要等好久和狂按按钮才看它一闪而过,为什么会这样呢?

cmd 是启动命令行的意思，/c 的意思是启动命令行后执行随后的命令，dir 是一个内部命令，例如：查看F盘根目录就要输入 cmd /c dir f:\

ipconfig 是一个外部命令，外部命令是以一个单独的可执行文件形式存放，ipconfig.exe 位于C:\WINNT\system32文件夹下，调用外部命令可以直接输入命令，例如：输入 ipconfig /all

有和种更容易理解、更容易实现的方法，但要稍稍“绕”一下圈子：
把执行命令的结果，即原本在命令提示符里显示的，保存为文本文件，然后再将文本文件的内容加载到Memo，最后删除临时文件。

其中的关键操作都比较简单：
Command>filename:将执行命令的结果保存为文件，如dir C:>E:\temp.txt将执行“dir c:”的执行结果保存到“E:\temp.txt”；
Memo1.Lines.LoadFromFile('E:\temp.txt')：将文本文件的内容加载到Memo；
删除文件；
deletefile('E:\temp.txt')：删除文件。
都比较简单……

将执行结果保存在程序目录下，指定一个特殊一点的文件名以保存当前目录下不会有同名文件存在；

你说的这种方法应该就是批处理文件方法吧.不过我连它的格式都不会写呢.