想要调用cmd.exe，执行命令后，如何让黄色字不回显？

2021-02-10 11:23:09 3.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows CMD命令详解与实用技巧命令行界面(CLI)是操作系统与用户交互的基础方式之一，Windows CMD作为内置命令行解释器，通过文本指令实现高效系统管理。其核心原理是通过解析用户输入的命令字符串，调用对应的系统功能或程序执行。掌握CMD命令不仅能提升系统管理效率，还能实现批量自动化操作，特别适合文件管理、网络配置和系统维护等场景。本文重点介绍Windows CMD的启动方式、文件目录操作、系统管理命令等实用技巧，包含dir、xcopy等高频命令的使用方法，以及批处理脚本编写等进阶内容，帮助用户从基础到精通掌握这一系统管理利器。阅读详情

想要调用cmd.exe，执行命令后，如何让黄色字不回显？
其他内容正常回显，而且不要隐藏cmd的窗口。只是想不显示黄色的文字，我要把命令隐藏起来，不想让客户知道我运行了什么命令，因为这些命令是我花费了时间研究出来的。

而且必须实时通过我的主程序 postmessage 命令给 cmd窗口，让窗口来执行。
或者你有更好的办法也行。谢谢。

...全文

system函数调用dos命令 system函数是可以调用一些DOS命令比如system(“cls”);//清屏,等于在DOS上使用cls命令常用的DOS命令,都可以用system函数调用: ASSOC 显示或修改文件扩展名关联。(小写字母) AT 计划在计算机上运行的命令和程序。 ATTRIB 显示或更改文件属性。 BREAK 设置或清除扩展式 CTRL+C 检查。 CACLS 显示或修改文件的访问控制列表(ACLs)。... 阅读详情

wdywmz

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

cranley 2023-07-03

打赏
举报



function RunCommand(const cmd: string; list: TStrings): string;
var
  hReadPipe, hWritePipe: THandle;
  si: STARTUPINFO;
  lsa: SECURITY_ATTRIBUTES;
  pi: PROCESS_INFORMATION;
  cchReadBuffer: DWORD;
  pOutStr: PAnsiChar; // or PChar;
  res, strCMD: string;
  fname: PChar;
begin
  strCMD := cmd;
  pOutStr := AllocMem(5000);
  fname := AllocMem(255);
  lsa.nLength := SizeOf(SECURITY_ATTRIBUTES);
  lsa.lpSecurityDescriptor := nil;
  lsa.bInheritHandle := True;
  try
    if not CreatePipe(hReadPipe, hWritePipe, @lsa, 0) then
      Exit;

    FillChar(si, SizeOf(STARTUPINFO), 0);
    si.cb := SizeOf(STARTUPINFO);
    si.dwFlags := (STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
    si.wShowWindow := SW_Hide;
    si.hStdOutput := hWritePipe;
    StrPCopy(fname, strCMD);
    try

      if not CreateProcess(nil, PChar(fname), nil, nil, True, 0, nil, nil,
        si, pi) then
        Exit;
      try
        while (True) do
        begin
          if not PeekNamedPipe(hReadPipe, pOutStr, 1, @cchReadBuffer, nil, nil)
          then
            break;
          if cchReadBuffer <> 0 then
          begin
            if not ReadFile(hReadPipe, pOutStr^, 4096, cchReadBuffer, nil) then
              break;
            pOutStr[cchReadBuffer] := chr(0);
            // if @Show <> nil then Show(pOutStr);
            list.Add(pOutStr);
          end
          else if (WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0) then
            break;
          Sleep(10);
          Application.ProcessMessages;
        end;
        pOutStr[cchReadBuffer] := chr(0);
        list.Add(pOutStr);
      finally
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(hWritePipe);
      end;
    finally
      CloseHandle(hReadPipe);
    end;

  finally
    FreeMem(pOutStr);
    FreeMem(fname);
  end;

  Result := res;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  cmd: string;

begin
  cmd := 'ping baidu.com ';
  RunCommand(cmd, Memo1.Lines);
end;

办法就是跳过cmd命令，自己用管道来显示程序输出。比如上面的代码将ping 命令输出到memo1上面。
多个命令就多跑几次RunCommand。
这个办法就不会有什么CMD窗口了，显示输出接管在自己的程序里面，更方便些。

墨梅无痕 2021-02-14

打赏
举报

楼主的想法是不可行的，你无法控制cmd窗口自身的显示，解决办法只有自己写一个窗口来显示命令执行的结果。

wdywmz 2021-02-12

打赏
举报

命令是动态生成的，楼上2位办法不行。

我在地球 2021-02-11

打赏
举报

@echo off 行不？

doloopcn 2021-02-10

打赏
举报

1.使用@echo off

2.使用：命令 >任意名称
任意名称实质上就是一个文件，命令的结果都生成在“任意名称”的文件中，但不显示在屏幕，你需要手工或自动删除“任意名称”文件

想要调用cmd.exe，执行命令后，如何让黄色字不回显？

相关推荐