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

delphi程序向另一个可执行程序发消息(使用GetForegroundWindow; 找出当前操作系统中活动的第一个窗口)的更多相关文章

  1. 一个N*M的矩阵,找出这个矩阵中所有元素的和不小于K的面积最小的子矩阵

    题目描述: 一个N*M的矩阵,找出这个矩阵中所有元素的和不小于K的面积最小的子矩阵(矩阵中元素个数为矩阵面积) 输入: 每个案例第一行三个正整数N,M<=100,表示矩阵大小,和一个整数K 接下 ...

  2. 给一个非常长的字符串str 另一个字符集比方{a,b,c} 找出str 里包括{a,b,c}的最短子串。要求O(n)

    给一个非常长的字符串str 另一个字符集比方{a,b,c} 找出str 里包括{a,b,c}的最短子串.要求O(n). 比方,字符集是a,b,c,字符串是abdcaabcx,则最短子串为abc. 设置 ...

  3. 给定两个字符串 s 和 t,它们只包含小写字母。 字符串 t 由字符串 s 随机重排,然后在随机位置添加一个字母。 请找出在 t 中被添加的字母。

    给定两个字符串 s 和 t,它们只包含小写字母.字符串 t 由字符串 s 随机重排,然后在随机位置添加一个字母.请找出在 t 中被添加的字母. 示例: 输入: s = "abcd" ...

  4. 给定一个英文字符串,请编写一个PHP函数找出这个字符串中首先出现三次的那个英文字符(需要区分大小写),并返回

    给定一个英文字符串,请编写一个PHP函数找出这个字符串中首先出现三次的那个英文字符(需要区分大小写),并返回 //统计字符串中出现的字符的出现次数 public function strNum(){ ...

  5. 通过程序调用微信公众号发消息api返回48001

    自己的订阅号,尝试通过写程序来给用户发消息.结果呢,接口返回报错:errcode=48001,errmsg = api unauthorized hint: [ZlPULa02942276!] 去微信 ...

  6. 【C#】无损转换Image为Icon 【C#】组件发布:MessageTip,轻快型消息提示窗 【C#】给无窗口的进程发送消息 【手记】WebBrowser响应页面中的blank开新窗口及window.close关闭本窗体 【手记】调用Process.EnterDebugMode引发异常:并非所有引用的特权或组都分配给呼叫方 【C#】DataRowState演变备忘

    [C#]无损转换Image为Icon 如题,市面上常见的方法是: var handle = bmp.GetHicon(); //得到图标句柄 return Icon.FromHandle(handle ...

  7. 重装系统分区时,发现一个叫LVM的东西,找出来和大家分享

    LVM是 Logical Volume Manager(逻辑卷管理)的简写,它是Linux环境下对磁盘分区进行管理的一种机制,它由Heinz Mauelshagen在Linux 2.4内核上实现,目前 ...

  8. 请实现一个函数用来找出字符流中第一个只出现一次的字符。例如,当从字符流中只读出前两个字符"go"时,第一个只出现一次的字符是"g"。当从该字符流中读出前六个字符“google"时,第一个只出现一次的字符是"l"。

    // test20.cpp : 定义控制台应用程序的入口点. // #include "stdafx.h" #include<iostream> #include< ...

  9. 有一个array的数组,长度为10000,大小不一,用算法找出该数组中的最大值。

    不用算法的答案是:   var a=[1,2,3,5……];alert(Math.max.apply(null, a));//最大值alert(Math.min.apply(null, a));//最 ...

随机推荐

  1. 【u204】高级砝码称重

    Time Limit: 1 second Memory Limit: 128 MB [问题描述] 现有n个砝码,重量分别为a1,a2,a3,--,an,在去掉m个砝码后,问最多能称量出多少不同的重量( ...

  2. 【b504】等价表达式(NOIP2005第4题)

    Time Limit: 1 second Memory Limit: 50 MB [问题描述] 明明进了中学之后,学到了代数表达式.有一天,他碰到一个很麻烦的选择题.这个题目的题干中首先给出了一个代数 ...

  3. 【Dijkstra+邻接表求次短路】POJ Sightseeing 3463

    Language: Default Sightseeing Time Limit: 2000MS   Memory Limit: 65536K Total Submissions: 7766   Ac ...

  4. [Android]TextView点击获取部分内容

    TextView控件本身有很多属性可以进行控制,如果要获取内容只需要getText()方法就可以实现,同时也可以为TextView设置各种监听器.但是,如果想要实现点击获取TextView内部的部分内 ...

  5. 一段node代码的解读

    path.join(path.dirname(__dirname), platform); __dirname:全局变量,变量获取当前模块文件所在目录的完整绝对路径 path.dirname():返回 ...

  6. 详解Qt,并举例说明动态编译(shared)和静态编译(static)以及debug and release 编译版本区别(可产生静态版的Debug版本,需要把-release 改为 –debug-and-release)

    作为初入Qt学习的新人,花了整整一两天时间,对Qt编译版本等问题进行了一步步探索,首先感谢网站博客中文章,开始也不是很明白一些几个问题: 1.Qt版本问题 作为初学者,可能下载时这么多版本,如何选择呢 ...

  7. C# 反射调用私有事件

    原文:C# 反射调用私有事件 在 C# 反射调用私有事件经常会不知道如何写,本文告诉大家如何调用 假设有 A 类的代码定义了一个私有的事件 class A { private event EventH ...

  8. 并行编程OpenMP基础及简单示例

    OpenMP基本概念 OpenMP是一种用于共享内存并行系统的多线程程序设计方案,支持的编程语言包括C.C++和Fortran.OpenMP提供了对并行算法的高层抽象描述,特别适合在多核CPU机器上的 ...

  9. 【狼窝乀野狼】Parallel浅尝辄止

    前段时间看到园子里面有同学在用Parallel进行批量插入数据库.后面也有很多同学针对这一事件给出了自己的看法和见解.我在这里不评论内容的好坏,至少能将自己东西总结分享这个是要靠勇气和毅力. 闲话少说 ...

  10. OpenGL(二十四) VAO、VBO和着色器使用示例

    1. 新建一个工程,新建一个头文件Shader.h,内容如下: #ifndef _SHADER_H_ #define _SHADER_H_ #include <vector> #inclu ...