***请问如何使进程中的窗体前置,谢谢!*******

Question

请问如何根据程序的窗体名称,使这个程序的窗体在所有打开程序的前面
,该程序已被打开,可能被后运行的其它的程序窗口给挡住了,谢谢!*******

Answer 1

var
  hdw:HWND;
begin
hdw:=FindWindow(nil,'标题') ;
SetWindowPos(hdw,hwnd(-1), 0, 0, 0, 0, 3);

Answer 2

PreviousInstanceWindow:=FindWindow(NIL,'标题');    //查找类名或标题
    if PreviousInstanceWindow<>0 then
    begin
      if IsIconic(PreviousInstanceWindow) then     //如果该窗口最小化则恢复
        ShowWindow(PreviousInstanceWindow,SW_RESTORE)
      else                                         //如果程序在后台则将其放到前台
      begin
        SetForegroundWindow(PreviousInstanceWindow);
      end;