Delphi WinAPI: GetModuleHandle - 获取一个模块(exe 或 dll)的句柄


本文整理自网络,侵删。

 
定义:
GetModuleHandle(
  lpModuleName: PChar {模块名; 只能是映射到当前进程的模块}
): HMODULE;           {返回模块句柄; 0 表示失败}

举例:
//获取当前模块的句柄
var
  s: string;
  h: Cardinal;
begin
  {先取得模块名}
  s := Application.ExeName;
  s := ExtractFileName(s);

  {获取参数只要模块名就够了; 不需要路径(测试中有路径也可以)}
  h := GetModuleHandle(PChar(s));
  ShowMessage(IntToStr(h));       {4194304}
end;


//用 nil 做参数即可获取当前模块的句柄
var
  h: Cardinal;
begin
  h := GetModuleHandle(nil);
  ShowMessage(IntToStr(h));  {4194304}
end;


//获取系统骨干模块 Gdi32.dll 的句柄
var
  h: Cardinal;
begin
  h := GetModuleHandle('Gdi32.dll');
  ShowMessage(IntToStr(h));  {2012151808}
end;


//能不能获取记事本的句柄?
var
  h: Cardinal;
begin
  h := GetModuleHandle('notepad.exe');
  ShowMessage(IntToStr(h));  {0; 失败}

{因为当前进程和记事本的进程是相互独立的;     }
{如果用能够冲破进程、面向全局的 dll 应该可以.}
end;

相关阅读 >>

Delphi 利用Delphi监视注册表的变化

Delphi �o置系�y�r�g

Delphi 10.3新特性 内联变量

Delphi中编写参数个数可变的函数

Delphi 一个高效的正整数排序函数

Delphi 判断当前网络连接方式

Delphi 线程中修改主窗体的控件内容

Delphi tnethttpclient https忽略证书验证

Delphi 获取cpu monitor使用率

Delphi 只限制到4位小数级别

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...