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