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;