在VFP中退出Windows的方法

有些Visual FoxPro for windows(以下簡稱VFP)程序經常會涉及到直接退出windows窗口的問題，但由於VFP的函數庫中沒有提供這個功能，所以需要設計一個程序來實現這個功能。下麪的程序是直接退出Windows的簡單方法。其原理是利用User.exe函數庫Foxtools.fll中的Regfn()和Callfn()函數，訪問windows中的exitwindows()函數。

程序列表如下:

#退出窗口

儅地移民

lnmesrs = messagebox(′您真的要退出windows嗎？′，4 16 256，′退出窗口′)

如果mesrs = 6 #按下YES按鈕執行。

設置爲sys(2004)" Foxtools.fll" additive #加載foxtools . FLL到內存中

Exit win = regfn ('Exitwindows '，t，t，' user.exe') #在user.exe(user . exe(windows 95)中注冊退出windows()函數

E = callfn (exitwin，0) #執行Exitwindows()函數

結束條件

該程序已在Windows S32/Windows 95的Visual FoxPro 30下運行。

位律師廻複