• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

采用多线程技术来关闭application.messagebox_Delphi

delphi 搞代码 7年前 (2018-08-09) 151次浏览 已收录 0个评论

//主要思路:在另个个线程查找到该消息框,然后发WM_CLOSE消息  
//为区别是其他的程序的消息框,我在提示的标题上多了一个空格,其实也可以用其他的办法。  
//原码如下:  

var   myclose:tcloseother;  

begin  
  myclose:=tcloseother.Create(false);  
  myclose.FreeOnTerminate:=true;  

http://www.gaodaima.com/65588.html采用多线程技术来关闭application.messagebox_Delphi

  application.MessageBox(‘程序已经运行!’,’消息提示 ‘,mb_ok+mb_iconinformation);  
end;  

unit closeother;  

interface  

uses  
  Classes,messages,sysutils,windows,forms;  

type  
  tcloseother = class(TThread)  
  private  
    { Private declarations }  
  protected  
    procedure Execute; override;  
  public  
    //procedure create(myhwnd:integer);  
  end;  

implementation  

{ Important: Methods and properties of objects in VCL can only be used in a  
  method called using Synchronize, for example,  

      Synchronize(UpdateCaption);  

  and UpdateCaption could look like,  

    procedure tcloseother.UpdateCaption;  
    begin  
      Form1.Caption := ‘Updated in a thread’;  
    end; }  

{ tcloseother }  

//procedure tcloseother.create(myhwnd: integer);  
//begin  
//end;  

procedure tcloseother.Execute;  
const  
  NumSec=5;  //设置5秒后自动关闭  
var  
  messagehwnd:integer;  
  starttime:tdatetime;  
begin  
  StartTime := now;  
  repeat  
    Application.ProcessMessages;  
  until Now > StartTime + NumSec * (1/24/60/60);  
  messagehwnd:=FindWindow(nil,’消息提示 ‘);  
  postmessage(messagehwnd,wm_close,0,0);  
end;  

end. 

欢迎大家阅读《采用多线程技术来关闭application.messagebox_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


搞代码网(gaodaima.com)提供的所有资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected],我们会在看到邮件的第一时间内为您处理,或直接联系QQ:872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:采用多线程技术来关闭application.messagebox_Delphi

喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址