VFP直接退出Windows窗口的實(shí)現(xiàn)

在一些Visual FoxPro for windows(以下簡(jiǎn)稱VFP)的程序中經(jīng)常要涉及到直接退出Windows窗口的問題，但是由于VFP的函數(shù)庫中沒有提供此函數(shù)，所以就必須自己設(shè)計(jì)一個(gè)程序來實(shí)現(xiàn)這個(gè)功能。
    以下程序就是直接退出Windows的一種簡(jiǎn)便方法，其原理是利用VFP中提供的動(dòng)態(tài)連接函數(shù)庫Foxtools.fll中的Regfn()及Callfn()函數(shù)去訪問Windows的User.exe函數(shù)庫中的exitwindows()函數(shù)。
    程序清單如下：
    ＃exit windows
    local lnmesrs
    lnmesrs=messagebox(′do you really want to quit windows?′,4＋16＋256,′exit windows′)
    if lnmesrs=6?。０碮ES按鈕執(zhí)行
    set library to sys(2004)＋″foxtools.fll″ additive?。oxtools.fll裝入內(nèi)存
    exitwin=regfn(′exitwindows′,T,T, ′user.exe′)?。Ｗ?cè)User.exe(Windows95中用User32.exe)庫中Exitwindows()函數(shù)
    e=callfn(exitwin,0)?。?zhí)行Exitwindows()函數(shù)
    endif
    此程序已在Visual Foxpro 30 for windows32/windows95下運(yùn)行通過。