Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
8. Aug 2005
ich habs gefunden, wenn ich bei VirtualQuery als ersten Parameter die Adresse einer globalen Angebe funktioniert es, nur eben bei der lokalen Variablen nicht.
es sieht jetzt also wie folgt aus
implementation
{$R *.dfm}
var GlobalVar: Cardinal;
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
8. Aug 2005
a.AllocationBase weicht von HInstance ab.
a.AllocationBase ist immer $3000
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
8. Aug 2005
ok, ich hab das jetzt mal so probiert:
var a: TMemoryBasicInformation;
LBuffer: String;
begin
FillChar(a, SizeOf(a), 0);
VirtualQuery(@a, a, SizeOf(a));
SetLength(LBuffer, MAX_PATH);
GetModuleFileName(Cardinal(a.AllocationBase), PChar(LBuffer), Length(LBuffer));
showmessage(LBuffer);
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
8. Aug 2005
oder gleich GetModuleName welches auf die gepostete funktion aufbaut.