发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
请参考：
declare integer FindWindow IN USER32.DLL AS Find_Window STRING,STRING
LOCAL m_appTitle
m_appTitle="myapp1"
if find_window(0,m_apptitle)!=0
=messagebox("本程序已运行",48)
return .f.
endif
_screen.caption="myapp1"
|
|