请问各位:调用CMD后如何在delphi程序中关闭呢?(分用完了,不好意思,再补上)

Question

请问各位:调用CMD后如何在delphi程序中关闭呢?

Answer 1

shellExecute(Handle, 'open', PChar('command.com'), PChar('/c exit'), nil, SW_SHOW);
或者在CMD命令后加上EXIT

Answer 2

我的cmd 程序已经在运行中,我想在delphi程序中关闭它,上面这个好象不行呀..

Answer 3

加上PChar('/c exit')后提示说不能同时指定文件和命令,因为我在CMD中要执行一个文件,不知怎么解决?

Answer 4

var
   wnd:HWND;
begin
   wnd:=Findwindow(nil,'dyyd.pas - 记事本');//根据标题查找句柄
   //wnd:=Findwindow(nil,'拱猪大赛');
   if wnd>0 then
      sendMessage(wnd,WM_CLOSE,0,0);//发送关闭消息
你参照例子试试。

Answer 5

HWndCalculator:=FindWindow('tooltips_class32',nil);
    if HWndCalculator<>0 then
       begin
       sendmessage(HWndCalculator,WM_close,0,0);
       memo.Lines.Add('数据调度执行完毕');
       end;
这个执行后momo中有加入'数据调度执行完毕',但是窗口没有关闭，不知为什么？

Answer 6

hnd:= FindWindowEx(0,0,0,'命令提示符');
  SendMessage(hnd,wm_close,0,0);