本文整理自网络,侵删。
定义: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 简化版的inputquery 中文版输入对话框
Delphi tms web core webmemo 横竖滚动条
Delphi winapi: setwindowtext - 设置窗口标题
更多相关阅读请进入《Delphi》频道 >>