窗口置顶

   正好最近在挖迅雷水晶,有个监控窗口想时时看到,但本人又喜欢全屏,所以干脆就编了一个窗口置顶的软件~~

 

用按键精灵编的~~把代码放上来吧~~很简单·~

PS:文末提供编好的软件下载~~

(若链接失效请与我联系~~qq435878393)



Event Form1.Button1.Click


   //窗口属性设置为(窗口置前)

   Call Plugin.Window.Top(Hwnd, 0)

   Form1.Button1.Caption=”已成功置顶”


End Event




Event Form1.InputBox1.Change


   //查找窗口类名()或者标题(“s”),返回找到的句柄Hwnd

   Hwnd = Plugin.Window.Find(0, Form1.InputBox1.Text)

   Form1.Button1.Caption = “置顶”

   Form1.Button2.Caption = “取消置顶”


   If(Hwnd=0 Or Form1.InputBox1.Text=””)

       Form1.Label2.Caption = “”

   Else

       Form1.Label2.Caption = “已经找到标题为  ” & Form1.InputBox1.Text & ”  的窗口,该窗口句柄为” & Hwnd & ” ,单击置顶按钮执行置顶操作。   “

   End If

   

End Event




Event Form1.Button2.Click


   //窗口属性设置为(取消窗口置前)

   Call Plugin.Window.Top(Hwnd, 1)

   Form1.Button2.Caption = “已取消置顶”


End Event

 

 

 

 

 

 

窗口置顶V1.1.exe:

http://pan.baidu.com/s/1eQH47XC

窗口置顶》上有2条评论

  1. Pingback引用通告: BZ编程小组 作品 | BZ编程小组

发表评论

电子邮件地址不会被公开。 必填项已用*标注