程序返回输出

[fzfei2]

我想实现 a.exe 没有参数是正常运行
如果在带参数 a.exe xxx ,不显示窗口，输出返回值

[hsfzxjy]

CONSOLE和GUI不能一起吧

[风之谷]

毛 哪有控制台跟GUI混合一起的。 最多只能做到 2个工程一个 一个是application 另外一个是 console application 处就是我原先的代码， 只不过对话框 换成 WinExec('console.exe 我嘞个去', SW_SHOW); console 获得参数值后 输出到控制台上。

[fzfei2]

谢谢各位的回复，看来要用其它方案了

[feiba7288]

如果在带参数 a.exe xxx ,不显示窗口，输出返回值 将 a.exe 修改成a.dll比 较 恰 当。

[fzfei2]

我知道本来要用 console模式来做，我想结合一起 还有exe程序退出有没有返回值，最好能支持字符串

[lhy]

开进程的时候可以选择吧。

[风之谷]

program Project1;

uses
  Forms,dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
    if ParamCount<=0 then
      Application.CreateForm(TForm1, Form1)
  else
    showmessage('123');
  Application.Run;
end.

[专制的网站]

CreateProcess("xxxxxx", NULL, NULL, NULL, FALSE, 0, NULL, "xxxxxxxxx", &si, &pi)) // 创建进程 WaitForSingleObject(pi.hProcess, INFINITE); // 等待进程结束 GetExitCodeProcess(pi.hProcess, &dwExitCode); // 等上面的WaitForSingleObject返回后，执行这个获得进程返回值，不过貌似只能是DWORD。 然后，你的进程里面的内容可以参考4楼代码来写，通过判断传入参数来决定是否显示窗口。 哦，还有 对于D程序的 进程返回值，使用ExitCode ，可参看http://blog.csdn.net/hydonlee/article/details/341638

[fzfei2]

引用 4 楼 jiap1723 的回复:

Delphi/Pascal code?12345678910111213141516program Project1; uses Forms,dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; if ParamCount<=0 then App……

我不是要弹出对话框 ------------------------ ExitCode 的也要用console模式来