隐藏(100分)

我在windows下面运行dos程序会弹出一个dos对话框,然后自动关闭
我想隐藏起来不要出现.怎样做?

点击DOS窗口左上角的MSDOS图标，再点“属性”->在“运行”中选“最小化”->把“退出时关闭”
前面打上对勾，最后确定。

以winexec API为例
winexec('chcp.com', SW_SHOW);
//显示dos窗口
winexec('chcp.com', SW_HIDE);//不显示dos窗口
To D影子D
留下QQ大家聊聊

隐藏了你怎么关闭？漏一招[]：
procedure KillDosForm(Name: string);
// Name为你运行的程序的文件名
function ExtractFileMainName(const FileName: string): string;
var
p: Integer;
begin
Result := FileName;
Delete(Result, Pos('.', Result), MaxInt);
p := Pos('/', Result);
while p <> 0do
begin
Delete(Result, 1, p);
p := Pos('/', Result);
end;
end;

var
WH: THandle;
begin
WH := FindWindow(nil, PChar('已完成 - ' + ExtractFileMainName(Name)));
if WH <> 0 then
SendMessage(WH, wm_Close, 0, 0);
end;

不愧是老人家,我竟然连这么简单的问题都想不到,真是.
有时间大家聊聊也好啊,我的QQ:15354983
你呢?

多人接受答案了。