help(关闭dos窗口)(50分)

  • 主题发起人 主题发起人 cdpclj
  • 开始时间 开始时间
C

cdpclj

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么在delphi程序的运行中,关闭“附件”的“命令提示符”,也就是dos窗口。
谢谢,最好能详细点儿。
 
是不是不显示外部程序的黑窗口,是的话用
winexec('calc.exe', 1);
若是关闭外部程序,可向程序sendmessage
 
我用的 ExitWindowsEx(),不过我不熟悉这种方法
请问sendmessage()是属于那个dll文件,谢谢。
 
以下是关闭所有 do
S窗口
var
hCurrentWindow: HWnd;
szText: array[0..254] of char;
begin
hCurrentWindow :=
GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(
hCurrentWindow, @szText, 255)>0 then
begin
Memo1.Lines.Add(StrPas(@szText));
if copy(szText,0,6)='MS-DOS' then
postmessage(hCurrentWindow,WM_quit,0,0);
end;
hCurrentWindow:= GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;
 
ExitWindowsEx是关闭系统的,呵呵
 
多人接受答案了。
 

Similar threads

后退
顶部