VFP 愛用者社區

prg3 · 註冊時間: 2003-09-16 文章: 41 第 1 樓

小弟給客戶一套進銷存系統install 至pc端但只希望客戶在pc上不可同時執行進銷存系統.exe 兩次請教如何check

garfield · 發表於: 星期六三月 03, 2007 3:41 pm 文章主題:

請搜尋重覆執行就找得到解答

prg3 · 註冊時間: 2003-09-16 文章: 41 第 3 樓

謝謝先進的指引!!我會試看看

xjliaos · 發表於: 星期三十一月 21, 2007 3:04 pm 文章主題:

PUBLIC handle
cCaption='NewMS'
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
handle = FindWindow(0,cCaption)
IF FindWindow(0,cCaption)#0
_SCREEN.CAPTION="NewMS"
MESSAGEBOX("不能重复運行本系統",16,"Error")
QUIT
ENDIF

這樣就可以!!