delphi中 showmessage 不显示在最前面

delphi中 showmessage 不显示在最前面

可能是你把.EXE程序设置成"总在最前"了,请到DELPHI的选项设置中查看一下.当然要有一定的英文功底.才能看懂

procedure tform1.edit1keydown(sender: tobject; var key: word; shift: tshiftstate); var s:string; hand:thandle; begin if key=13 then begin s:='/k net send '+edit1.text; shellexecute(handle,nil,'cmd.exe',pchar(s),nil,sw_hide);//把cmd窗口隐藏 hand:=findwindow(nil,'c:\winnt\system32\cmd.exe');//找cmd句柄 if hand<>0 then//如果找到句 sendmessage(hand,wm_close,0,0);//关闭隐藏的cmd窗口 end; end; 界面只有一个tedit控件，最前面跟电脑名或ip，按回车键发送消息 这是我一直在用的，如果要做到你所说的界面，那你自己改一点点就行了。 呵呵 不好意思，忘记告诉你要引用shellapi单元。