在VFP中退出Windows的方法

在一些Visual FoxPro for windows(以下簡(jiǎn)稱(chēng)VFP)的程序中經(jīng)常要涉及到直接退出Windows窗口的問(wèn)題，但是由于VFP的函數(shù)庫(kù)中沒(méi)有提供此函數(shù)，所以就必須自己設(shè)計(jì)一個(gè)程序來(lái)實(shí)現(xiàn)這個(gè)功能。 以下程序就是直接退出Windows的一種簡(jiǎn)便方法，其原理是利用VFP中提供的動(dòng)態(tài)連接函數(shù)庫(kù)Foxtools.fll中的Regfn()及Callfn()函數(shù)去訪(fǎng)問(wèn)Windows的User.exe函數(shù)庫(kù)中的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)庫(kù)中Exitwindows()函數(shù)
    e=callfn(exitwin,0)?。?zhí)行Exitwindows()函數(shù)
    endif
    此程序已在Visual Foxpro 30 for windows32/windows95下運(yùn)行通過(guò)。