如何激活另外一个窗体成为当前活动窗体

[mdm61]

我想做一个监视程序，需要激活另外一个正在运行的程序窗体并成为当前活动窗体，请教怎么做？我用的D7 ，可否用查找软件的标题后使其成为当前活动的窗体。

[mdm61]

比如已经知道一个软件标题名为 ‘民生证券交易XXX’，如何使这个交易软件成为当前的活动窗体，

[slmax1]

sendmessage

WM_ACTIVATE = $0006;
一个窗口被激活或失去激活状态；

[mdm61]

能否举个例子

[kill211]

setforegroundwindow(findwindow(nil,'民生证券交易XXX'));

[mdm61]

谢谢 ，果然有效，怎么实现模糊找，比如只要有‘民生证券’这四个字就可以找到并激活

[kfcoffe]

EnumWindows()

[mdm61]

这个回调函数我知道，但是不知道怎么用，请解释一下好吗，举个简单的例子，谢谢

[kfcoffe]

 function  EnumChildWindowsProc(hwnd:  Integer;  lparam:  Longint):Boolean;  stdcall;
    var
        buffer:  array[0..255]  of  Char;
        nRet  : Integer;
    begin
       nRet := GetWindowText(hwnd,buffer,Length(Buffer));
       if nRet > 0 then
       begin
           if pos('民生证券交易XXX',StrPas(Buffer))>0 then
               .........
       end;
    end;

EnumChildWindows(Handle,@EnumChildWindowsProc,..);