程序运行时命令行和图形界面方式的统一

Question

如果编一个既可以在控制台执行的程序，又可以图形界面运行
区别是有没有参数，如果有参数就在控制台执行。如果没有就启动界面。
但是直接双击启动界面后，后面有一个dos窗口。怎么就能消失。
请知道的指点，分数优惠。谢谢。

Answer 1

怎么没有人回答阿,是不是不可能阿。其他的程序都可以做到阿。在命令行方式下，结果就显示在命令行，在图形界面上，结果就显示在控件内。
怎么在delphi中就只能选一样啊。有个{$APPTYPE GUI}和{$APPTYPE CONSOLE}但是不能共存阿。

Answer 2

你倒不如做一个命令行的程序.
至于要图形界面,直接调用这个命令行程序,做输入输出重定向就行了.象各种IDE,差不多都是这样做的..

Answer 3

那不变成两个程序了，我编写的c和java都可以统一的亚。

Answer 4

在Form的OnCreate事件中加入以下代码：
  if ParamStr(1) = '' then
     Application.ShowMainForm := False;

Answer 5

赫赫，总算解决了。设为命令行方式的。如果没有参数就启动图形方式。
至于图形方式的背后的dos窗口，用 freeconsole 解决。多谢大家，稍后给分。{$APPTYPE CONSOLE}
begin
  if  ParamCount > 0  then
  begin
     //dos下的处理。
  end
  else
  begin
    FreeConsole;
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end;
end.