Das bekannte HInstance ermitteln

[sakura]

Alle, die HInstance in einer Delphi.NET Anwendung benötigen, sollten sich die folgenden Funktionen mal anschauen.

Delphi-Quellcode:

uses
  System.Runtime.InteropServices,
  System.Reflection;

function HInstance: Integer;
begin
  Result := Marshal.GetHInstance(Assembly.GetCallingAssembly.GetModules[0]).ToInt32;
end;

function HInstanceAsIntPtr: IntPtr;
begin
  Result := Marshal.GetHInstance(Assembly.GetCallingAssembly.GetModules[0]);
end;

......

[edit=Chakotay1308]Klassifizierung angepasst. Mfg, Chakotay1308[/edit]