|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
goto-dream
註冊時間: 2004-05-11 文章: 909
第 1 樓
|
發表於: 星期六 五月 15, 2004 4:38 pm 文章主題: 如何關閉其他應用程式?(轉貼) |
|
|
source: http://www.foxite.com
代碼: | Close other applications from within VFP app
Q: Is it possible to close other applications with my VFP app?
A: Once again, the Win32API comes to the resque:
IF KillApp("A Window Title")
* replace "A Window Title" with the title of the app that you want to close
?"app killed"
ELSE
?"app still alive..."
ENDIF
FUNCTION KillApp
LPARAMETER tcCaption
LOCAL lnWinHandle, lnRetval, lnResult, llRetval
DECLARE INTEGER WaitForSingleObject IN Win32API ;
INTEGER hHandle, ;
INTEGER dwMilliseconds
DECLARE INTEGER FindWindow IN Win32API ;
STRING lpClassName, ;
STRING lpWindowName
DECLARE INTEGER PostMessage IN Win32API ;
INTEGER hwnd, ;
INTEGER wMsg, ;
INTEGER wParam, ;
INTEGER lParam
DECLARE INTEGER IsWindow IN Win32API ;
INTEGER hwnd
#DEFINE WM_CLOSE 16 && H10
#DEFINE INFINITE 4294967295 && HFFFFFFFF
lnWinHandle = FindWindow(0, tcCaption)
lnRetval = PostMessage(lnWinHandle, WM_CLOSE, 0, 0)
lnResult = WaitForSingleObject(lnWinHandle, INFINITE)
llRetval = (IsWindow(lnWinHandle) = 0)
RETURN llRetval
ENDFUNC |
_________________ 福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
想了解更多,您可上幸福雞湯組.找尋!!丁澐瑄.老師.
愛作夢 |
|
回頂端 |
|
|
laurance
註冊時間: 2004-03-24 文章: 35
第 2 樓
|
發表於: 星期一 十二月 24, 2007 9:46 pm 文章主題: 請問要是我沒有 windows caption 而僅有 pid ,該如何殺? |
|
|
請問要是我沒有 windows caption 而僅有 pid ,該如何殺? |
|
回頂端 |
|
|
laurance
註冊時間: 2004-03-24 文章: 35
第 3 樓
|
發表於: 星期一 十二月 24, 2007 10:07 pm 文章主題: Mydll.dll 中 TerminateApp 可以殺 |
|
|
Mydll.dll 中 TerminateApp 可以殺
但
應改為
Declare integer TerminateApp IN "mydll.dll" long dwPID,long dwTimeout
改為 long 而非說明文件中的 double
來源:http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=33404 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|