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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

 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,..);