以编程方式按ALT + TAB，直到活动字幕与Delphi中的给定字符串匹配

Question

I'm trying to programmatically select a windows that matches a specific string in caption by pressing ALT+TAB . Any idea how can I do that?

I'm trying to find an alternate solution to the code below which has a strange downside: the minimize button of the external application does not work unless I click twice the left mouse button on the taskbar where the rectangle of the form is. Notepad, Mozilla and other delphi application created by me do not display this behavior. The only program that is affected by this behavior is a commercial software that I'm trying to control by adding extra functions to it.

function FindWindowExtd(partialTitle: string): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
    sTitleTemp := cTitletemp;
    sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
    partialTitle := UpperCase(partialTitle);
    if pos( partialTitle, sTitleTemp ) <> 0 then
      Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;



 procedure Tform2.OnSchedule_1_Trigger(Sender: TScheduledEvent);
    var h:HWND;
        executabil:string;

    begin
    h:=FindWindowExtd(Edit_titlu_fereastra_program.text);
    if (h = 0) then
    begin
    // Oops not found
showmessage('THE WINDOW WAS NOT FOUND');

    end
    else
      begin
    // you got the handle!
    if iswindow(h) then begin

    showmessage('THE WINDOW WAS FOUND');
    ShowWindow(h,SW_MAXIMIZE);
    SetForegroundWindow(h);

      end;
      end;

Thanks a lot!

Answer 1

您可以从Windows API调用FindWindow函数来查找具有所需标题的窗口，然后根据需要将其放在最前面。

Answer 2

Like this

procedure Keybd_Press   (const AKey : byte);
begin
  Keybd_Event (AKey,0,0,0);
end;

procedure Keybd_Release (const AKey : byte);
begin
  Keybd_Event (AKey,0,KEYEVENTF_KEYUP,0);
end;

Keybd_Press (VK_MENU);
Keybd_Press (VK_TAB);
Keybd_Release (VK_TAB);
Keybd_Release (VK_MENU);