[转载]关于Delphi中HInstance说明

2010-04-09 14:56

本文转自 “猪悟能's博客”

几乎每一个提取资源的例子都用到了 HInstance, 做个对比测试:...

var
h,a,f: Cardinal;
begin
h := HInstance;
a := Application.Handle;
f := Self.Handle;

ShowMessage(IntToStr(h)); {4194304}
ShowMessage(IntToStr(a)); {13107942}
ShowMessage(IntToStr(f)); {4260652}
end;
通过测试看出: HInstance、Application.Handle、Self.Handle 不是一回事.

Self.Handle 是窗体的句柄;

Application.Handle 也是个窗口的句柄, 不过这个窗口很小, 在任务栏上;

HInstance 是程序实例的句柄; 同一个程序可能会有几个副本同时允许, 每个副本当然会有不同的句柄.

-----------------------------------------------------

HInstance是你的EXE或者DLL加载内存的首地址，很多查找资源文件的函数都需要这个值

在Delphi中，可以通过访问一个叫HInstance的全局变量来获取本应用程序的实例句柄。
如果一个程序编译成包，那么HInstance并不代表应用程序的模块句柄。此时要用MainInstance
来访问宿主程序的模块句柄，而HInstance代表代码所在的模块句柄。
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToStr(getmodulehandle('本程序在磁盘上的全路径名'));
Caption := Caption + '|' + IntToStr(HInstance);
end;