hur.cn - 华软网

 热门搜索

关于单程序运行

  作者:未知    来源:网络    更新时间:2018/10/11
我在应用的open事件中写下以下代码
但生成的exe程序照旧能运行多个事例,为什么???

int ihapp
ihapp = handle(this, true)
messagebox("ihapp", string(ihapp))
if ihapp > 0 then 
messagebox("","程序已运行")
halt
end if

------华软网友回答------
public function ulong FindWindowA( ulong winhandle, string wintitle ) Library "user32" 
public function uLong ShowWindow( ulong winhandle, int wincommand ) Library "user32"

unsignedlong ul_handle
ul_handle = FindWindowA(0,"窗口题目")
if ul_handle > 0 then
BringWindowToTop(ul_handle)
ShowWindow(ul_handle,5)
halt
end if
------华软网友回复------
如果窗口题目固定,用小鬼的方法就能够

如何让PB的MDI程序只运行一次优越于FINDWINDOWA()的方法
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=3359
------华软网友回复------
Unknown function name :bringwindowtotop
?????
------华软网友回复------
FUNCTION  boolean  BringWindowToTop(  ulong  HWND  )  Library  "user32"
------华软网友回复------
sorry,拷贝漏了一个API声明      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。