请教吹版主，我在https://www.看到这段VB代码，想借此实现在多个打开的EXCEL文档中找到需要关闭的文档，然后在转成VFP后在下面代码 ？？处始终出错，请教是解决办法
Declare Long FindWindowEx IN user32 long hWnd1, long hWnd2, string lpsz1, string lpsz2
DECLARE Long PostMessage IN WIN32API as PostMessageA Long hWnd, Long Msg, Long wParam, Long lParam
Declare INTEGER GetWindowText IN User32 long hWnd, string lpString , long cch
Declare INTEGER GetWindowThreadProcessId in user32 long hwnd, long lpdwProcessId
Declare INTEGER OpenProcess in kernel32 long dwDesiredAccess, long bInheritHandle, long dwProcessId
Declare INTEGER TerminateProcess in kernel32 long hProcess, long uExitCode
*Declare INTEGER RtlAdjustPrivilege in ntdll AND Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
#define WM_CLOSE = &H10
#define PROCESS_TERMINATE = &H1

hWnd = FindWindow("XLMAIN", null)         
procId=0
iid=GetWindowThreadProcessId(hWnd, @procId)
DO While hWnd <> 0
    strText = Space(256)
    GetWindowText(hWnd, @strText, Len(strText))
    strText = Left(strText, at("-",strText ) - 1)   
    If at("Microsoft Excel",strText,1) > 0 Then   
        procId = 0
        iid=GetWindowThreadProcessId(hWnd, procId)

        hProcess = OpenProcess(PROCESS_ALL_ACCESS ,0,iid)    &&  ？？

        iRet = TerminateProcess(hProcess, 0)
        iRet = PostMessage(hWnd, WM_CLOSE, 0, 0)
    EndIf
enddo

唉，这段代码问题实在多不胜数

vfp 有 &h 这种表示16进制法吗？

FindWindow 在哪声明的？后面两句有意义吗？hWnd 为零时咋整？

hWnd 不为零的话，岂不是要死循环？

OpenProcess 要传入的是进程 id, 为何要传入线程id ？

进程都杀死了，还有窗口值得关闭？

看似是想枚举窗口，但又与进程相关？
枚举窗口判断从窗口类入手，不同版本的Excel主窗口类名兼容性有无问题？
参考示例：

DECLARE long GetWindow       IN user32 long,long
DECLARE long GetWindowText   IN user32 long,string@,long
DECLARE long GetClassName    IN user32 long,string@,long
DECLARE long IsWindowVisible IN user32 long
DECLARE long SendMessage     IN user32 long,long,long,long

#define GW_HWNDFIRST   0
#define GW_HWNDNEXT    2
#define WM_CLOSE       0x10

xls = "Book1.xls"
buf = SPACE(256)
hWnd = GetWindow(_vfp.hWnd, GW_HWNDFIRST)
DO WHILE hWnd != 0
    IF IsWindowVisible(hWnd) == 1
        len = GetClassName(hWnd, @buf, 256)
        IF LEFT(buf,len)=="XLMAIN"
            len = GetWindowText(hWnd, @buf, 256)
            IF AT(xls,LEFT(buf,len)) != 0
                SendMessage(hWnd, WM_CLOSE, 0, 0)
            ENDIF 
         ENDIF
    ENDIF
    hWnd = GetWindow(hWnd, GW_HWNDNEXT)
ENDDO

感谢回复的两位老师！
能否请吹版主再优化一下代码，给一下过滤出的各个BUF的句柄？

[此贴子已经被作者于2023-7-5 09:55编辑过]

结果就是所有 SendMessage(hWnd, WM_CLOSE, 0, 0) 的 hWnd

谢谢，我用hWnd放到EnumWindows函数下，成功遍历出全部打开的EXCEL文档了。

请问，VFP是怎样调用用EnumWindows函数？

vfp2c32.fll库中有丰富的函数,回调,多线程等.
https://

不只是要枚举EXCEL的窗口，还要考虑有无能打开xls的其他应用程序，这个问题就复杂点。
还有就是枚举过程完成后还有无可能会被打开。

我在您给的代码里加了这句  =EnumWindowsProc(hwnd, NULL)
然后做了一个过程，如下：

PROCEDURE EnumWindowsProc
PARAMETERS hwndv,lParamv
s   =SPACE(128)+CHR(0)
*buf = SPACE(256)+CHR(0)
GetWindowText(hwndv,@s,256)
WAIT WINDOW s
WAIT window "EnumWindowsProc："+STR(hwndv)   
=getwindowtext(hwndv,s,80)
s=LEFT(s,AT(CHR(0),s)-1)
v=getwindow(hwndv,gw_owner)
a=iswindowvisible(hwndv)
IF LEN(s)>0 AND a<>0 AND v=0
    WAIT WINDOW s
ENDIF
EnumWindowsProc =.t.
ENDPROC