delphi程序向另一个可执行程序发消息（使用GetForegroundWindow; 找出当前操作系统中活动的第一个窗口）

Posted 2020-09-10 朝闻道

function FindWindowThroughWindowText(WindowText: string): THandle;
var
  hCurrentWindow: THandle;
  cnt: Integer;
  WindowTitle: array [0 .. 254] of Char;
begin
  Result := INVALID_HANDLE_VALUE; // 返回值预设为无效的句柄
  hCurrentWindow := GetForegroundWindow; // 找出当前操作系统中活动的第一个窗口
  cnt := 1; // 计数器置初值=1
  while True do
  begin
    if GetWindowText(hCurrentWindow, @WindowTitle, 255) > 0 then // 如果找到窗口的标题
      if StrPos(WindowTitle, PChar(WindowText)) <> nil then // 如果找到的正是目标窗口则
        break; // 跳出循环
    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT); // 找下一窗口


    // 直到找到或超过一定的次数后退出
    if hCurrentWindow = 0 then
    begin
      // 如果顺序查一遍后未找到目标窗口，则重新从头开始查找，
      hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST); // 找到第一个窗口
      inc(cnt); // 循环计数器加1
      if cnt > 10000 then
      begin
        // 如果超出10000次则(在此10000次循环过程中等待windows建立完//目标窗口，如在此过程中找到则成功退出，否则10000次后(约30秒至1分钟)仍未找到，提示用户是否继续查找)
        if MessageDlg(‘找不到运行中的‘ + WindowText + ‘窗口,可能该系统已损坏!是否继续运行?‘,
          mtConfirmation, [mbOK, mbCancel], 0) = mrOK then
        begin
          // 请用户选择是否继续查找//如用户选择继续查找，则
          cnt := 1; // 循环计数器重置初值=1
          Continue; // 开始新一轮查找
        end
        else
          exit; // 如用户放弃查找，则退出
      end;
    end;
  end;
  Result := hCurrentWindow; // 返回值为找到的窗口句柄

end;

 

 

procedure TForm1.Button1Click(sender:TObject);
var
  h:THandle;
begin
  h:=FindWindowThroughWindowText(xxx);
  if h <> INVALID_HANDLE_VALUE  then
  begin
    SendMessage(h,WM_某某消息,参数1，参数2);
  end;
end;

 

procedure TForm1.Button1Click(Sender: TObject);

var
  h:THandle;
begin
  h:=FindWindowThroughWindowText(‘Form1‘);
  if h <> INVALID_HANDLE_VALUE  then
  begin
   showmessage(‘ok1!‘);
   h:= FindWindowEx(h,0,‘TEdit‘,‘Edit1‘);
   if (h=0) then exit;
   showmessage(‘ok2!‘);
  SendMessage(h,WM_SETTEXT,255, integer(PChar(‘我‘)));
  end;

end;

 

Procedure TForm1.Button1Click(Sender: TObject);

Var

  FormHwd, OKHandle, EDHwd1, EDHwd2: THandle;

Begin

  FormHwd := FindWindow(nil, ‘用户登录‘); //窗口名称

  If FormHwd > 0 Then

  Begin

    OKHandle := FindWindowEx(FormHwd, 0, PChar(‘TBitBtn‘), Pchar(‘确定‘));//按钮

    EDHwd1 := FindWindowEx(FormHwd, 0, PChar(‘TEdit‘), nil);

    SendMessage(EDHwd1, WM_SETTEXT, 255, Longint(PChar(‘0‘)));

    EDHwd2 := FindWindowEx(FormHwd, EDHwd1, PChar(‘TEdit‘), nil);

    SendMessage(EDHwd2, WM_SETTEXT, 255, Longint(PChar(‘jwc01‘)));

    SendMessage(OKHandle,BM_CLICK,0,0);

  End;

End;

 

 

http://blog.csdn.net/zang141588761/article/details/52061764