hur.cn - 华软网

 热门搜索

限制程序运行的次数“遇到的问题

  作者:未知    来源:网络    更新时间:2019/6/11
我在w_main里open事件写的代码是:
ulong l_handle,lu_class
string ls_name
ls_name='主窗口'
l_handle=findwindowA(lu_class,ls_name)
if l_handle>0 then
messagebox("提醒信息","应用程序已经运行,不能屡次启用!")
halt close

end if
可是报错:bad runtime function reference in the open event of w_main
我已经定义了Function   Long   findwindowA(Ulong winhandle,string wintitle)    Library   'user32'了
------华软网友回答------
bad runtime function reference in the open event of w_main
是什么意思呢??
------华软网友回复------
Function   Long   findwindowA(Ulong winhandle,string wintitle)    Library   'user32' as 'FindWindowA'
试试
------华软网友回复------
更正:
Function   Long   findwindowA(Ulong winhandle,string wintitle)    Library   'user32' alias for "FindWindow"
试试
------华软网友回复------
谢谢大侠
可照旧不行,焦心期待。。。。。。
------华软网友回复------
报错是在这一行:l_handle=findwindowA(lu_class,ls_name)
------华软网友回复------
Function   uLong   findwindowA(Ulong winhandle,string wintitle)    Library   'user32'
------华软网友回复------
注意函数的名字:FindWindowA 对巨细写敏感的.
------华软网友回复------
long _Class
long _Handle

setnull(_Class)

_Handle = FindWindowA(_Class, "窗口名称")
if _Handle > 0 then//程序已经运行
send(_Handle,16,0,1)
return
end if


这是我用的检查窗口运行的代码,你少的是setnull(lu_Class)。
------华软网友回复------
谢谢列位的热情帮助,可是我的照旧不行,莫非是电脑的问题??
------华软网友回复------
1、Function Long FindWindowA(Ulong Winhandle,string wintitle) Library "user32.dll" //声明全局外部函数
2、在应用的open事件中加入代码:
ulong l_handle,lu_class
string ls_name

ls_name="主窗口" //其中"主窗口"为主窗口的Title
l_handle=FindWindowA(lu_class,ls_name)
if l_handle > 0 then
   messagebox("提醒信息","应用程序已经运行,不能屡次启用!")
   halt close
end if
------华软网友回复------
//我的环境 pb8 win2k
//声明全局外部函数
Function ulong FindWindowA( ulong winhandle, string wintitle ) Library "user32"
FUNCTION uLong BringWindowToTop( ulong HWND ) Library "user32" 

//在APP中代码
ulong ul_handle
ul_handle = FindWindowA( 0,gs_main_title ) //根据窗口题目,查找窗口句柄
If ul_handle > 0 Then 
  BringWindowToTop( ul_handle ) //将已打开的窗口置顶
  ShowWindow( ul_handle , 9 ) 
  Return 
End If      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。