delphi之遊戲視窗尋找和控制

尋找遊戲視窗

procedure FindGameWindow;
var
   h:THandle;
   buf:array[0..255] of char;
begin
   FillChar(buf,sizeof(buf),0);
   h := GetForegroundWindow();
   while (h<>0) do
   begin
      GetWindowText(h, buf, 255);
      if (AnsiContainsStr(buf, '遊戲標題名稱')) then
      begin
        // 找到一個遊戲視窗控制代碼，做記錄或其他處理 
      end;
      h:=GetNextWindow(h,2);
   end;
end;

然後，可以
1.判斷遊戲視窗是否存在？
  IsWindow(h) 
2.啟用到前台
  if IsWindow(h) then
  begin
    SetForegroundWindow(h);
    ShowWindow(h,SW_RESTORE);
  end;
3.最小化
  if IsWindow(h) then
  begin
     CloseWindow(h);
  end;