指定程序窗体置顶

var
  hform: Cardinal;
begin
  hForm := FindWindow('SciCalc', nil); //计算器
  if hform <> 0 then                   //计算器是否启动
  begin
    if IsIconic(hform) then            //是否最小化
    begin
      SetForegroundWindow(hform);
      ShowWindow(hform, SW_RESTORE);
    end;
    if SetWindowPos(hform, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) then
      SetWindowPos(hform, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  end
  else
    ShowMessage('请启动计算器程序');
end;