如何关闭其它应用程序中的模式窗体？(50分)

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #1

我安装了别人的一个软件，当软件启动后它会检测硬件，如果没检测到，就弹出一个窗体
"无法初始化端口，请检查设置是否连接正确" ，按"确定"后程序就关闭了。
现在有没有办法关闭该窗体，使程序还能继续使用？
procedure TForm1.BitBtn1Click(Sender: TObject);
var WindowsHand:THandle ;
begin
WindowsHand:=Findwindow(nil,'系统信息！');
if windowshand >0 then
Begin
。。。。杀掉那个该死的对话框？
// showwindow(windowshand,SW_Hide); 只能隐去，程序还是不能用
end
else
showmessage('没有发现窗体') ;

end;

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #2

PostMessage(windowshand, WM_CLOSE, 0, 0);

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #3

不要想了，你的这个做法估计是没戏的，你Kill掉这个窗体，相当于模态窗体关闭或者和被Destory。
一是程序崩溃，二是程序正常退出。

 

S

shibaoping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

var hd: HWND;
begin
hd := FindWindow(nil,'未定问题 - 记事本');
if hd<>0 then
PostMessage(hd,WM_Close,0,0);
end;

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #5

这样关闭与直接关闭那窗体一样的，程序还会退出.

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #6

使用SoftIce或者其他工具更改也许有效。
不过俺不会。[]

 

Z

zyf23

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #7

关注一下

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #8

真的没有办法?

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #9

多人接受答案了。