如何获取自己在程序中运行的外部EXE的Handle?

_晨曦and_

_晨曦and_

2016-02-19 12:47

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐如何获取自己在程序中运行的外部EXE的Handle?,赶紧看过来吧!
 

  这是我在一个论坛的讨论稿,我想这些情况在实践程序设计过程中会常碰到,所以就将这些讨论资料写了下来:

  作者:e梦缘

  ?

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  请问用什么方法可以运行一个外部的EXE并返回它的Handle?
  WinExec 返回不是该EXE的Handle
  ShellExecute, ShellExecuteEx 也不是
  CreateProcess 返回的是 Process Handle
  到底要如何才可以返回和 GetWindow 所返回的一样的 Handle?

  Re:

  可以用FindWindow()函数,它能够解决这个问题,它有两个参数:lpClassName:程序的类名;lpWindowName:程序窗体的标题。

  

  例如:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  var
  ExeHandle:Thandle;
  Begin
  //获得句柄
  ExeHandle:=FindWindow('notepad',nil);//'');//返回句柄
  //关闭程序
  if ExeHandle0 then
  SendMessage(ExeHandle,WM_Close,0,0)
  Else
  Application.MessageBox('没有打开"记事本"程序!','提示',
  MB_IconInformation+MB_OK);
  end;

  ?
  FindWindow() 方法不是我想要的,因为这里的lpWindowName 具有不确定性,没有办法准确地找到。
  我希望能在执行这支外部程序里就可以得到它的 Handle.
  比如有没有办法,通过Process Handle得到它有
  Application Handle 以及 MainForm Handle

  Re:

  您可以通过lpClassName:程序的类名来准确地找到。

  

  ExeHandle:=FindWindow('notepad',nil);//返回句柄

  如何获取自己在程序中运行的外部EXE的Handle?function ExecuteFile(const FileName, Params, DefaultDir: String;

  

  ShowCmd: Integer): THandle;

  var

  zFileName, zParams, zDir: array[0..79] of Char;

  begin

  Result := ShellExecute(Application.MainForm.Handle, nil,

  StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),

  StrPCopy(zDir, DefaultDir), ShowCmd);

  end;

  procedure TForm1.Button3Click(Sender: TObject);
  var
  hwd:thandle;
  begin

  hwd:=ExecuteFile('notepad.exe','','',SW_ShowNormal);
  if hwd0 then showmessage('哈哈~~'+#13+'我取到handle了,是'+inttostr(hwd));

  end;

   

  ?

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  谢谢您的热心帮助,
  但ShellExecute得到的并不是Handle
  用FindWindow得到的才是真正的Handle
  你可以试一下.
  最简单的方法就是向你得到的Handle发一个WM_QUIT消息,看它是否会被关闭.
  如:
  SendMessage(AHandle, WM_QUIT, 0, 0);

   

  Re:

  我看了很多delphi的资料,好像只有FindWindow()函数是 可以实现的,至于是否还有其它的方法,我 不太清楚!如何获取自己在程序中运行的外部EXE的Handle?

  

   

  最后结果:

  

  

  我已从大富翁论坛上得到了满意的结论了,在这和大家分享一下:
  (大富翁论坛: http://www.delphibbs.com/)

  type
  PEnumInfo = ^TEnumInfo;
  TEnumInfo = record
  ProcessID : DWORD;
  HWND : THandle;
  end;

  function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
  var
  PID : DWORD;
  begin
  GetWindowThreadProcessID(Wnd, @PID);
  Result := (PID EI.ProcessID) or
  (not IsWindowVisible(WND)) or
  (not IsWindowEnabled(WND));

  if not result then EI.HWND := WND;
  end;

  function FindMainWindow(PID: DWORD): DWORD;
  var
  EI : TEnumInfo;
  begin
  EI.ProcessID := PID;
  EI.HWND := 0;
  EnumWindows(@EnumWindowsProc, Integer(@EI));
  Result := EI.HWND;
  end;

  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  SI : TStartupInfo;
  PI : TProcessInformation;
  H : THandle;
  S : String;
  begin
  ZeroMemory(@SI, SizeOf(SI));
  ZeroMemory(@PI, SizeOf(PI));
  SI.cb := SizeOf(SI);
  if CreateProcess(nil,'CALC.EXE', nil, nil, FALSE, 0 ,nil,nil, SI, PI) then
  begin
  //注意!
  WaitForInputIdle(PI.hProcess, INFINITE);

  H := FindMainWindow(PI.dwProcessID);
  if H 0 then
  begin
  SetLength(S, 255);
  GetWindowText(H, PChar(S), 255);
  SetLength(S, StrLen(PChar(S)));
  ShowMessage(S);
  end;

  CloseHandle(PI.hProcess);
  CloseHandle(PI.hThread);
  end;
  end;
  end.

展开更多 50%)
分享

猜你喜欢

如何获取自己在程序中运行的外部EXE的Handle?

编程语言 网络编程
如何获取自己在程序中运行的外部EXE的Handle?

在Android中 获取正在运行的Service 实例

编程语言 网络编程
在Android中 获取正在运行的Service 实例

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

女人应该如何争取自己的幸福?

情感
女人应该如何争取自己的幸福?

运行中程序删除自己的方法

编程语言 网络编程
运行中程序删除自己的方法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

如何WinXP中运行DOS程序?

电脑入门
如何WinXP中运行DOS程序?

怎样在Windows XP中运行DOS程序方法

电脑入门
怎样在Windows XP中运行DOS程序方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

进入QQ空间被提示“您当前网络不稳定”怎么办?

进入QQ空间被提示“您当前网络不稳定”怎么办?

深入GDI(图形设备接口)编程

深入GDI(图形设备接口)编程
下拉加载更多内容 ↓