Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by sx2008,
19. Aug 2009
:thumb: Ok, und dann noch schnell die Früchte der Arbeit ernten:
function _GetProcAddress(): Pointer; overload;
begin
Result := _GetModuleAddress('kernel.dll');
if Assigned(result) then
Result := _GetProcAddress(Result, 'GetProcAddress');
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by sx2008,
19. Aug 2009
Könntest du das nicht in zwei Funktionen zerlegen?
(1) Zuerst wird die Adresse von PEB (Process Enviroment Block) ermittelt
(2) Anschließend wird die doppelt verkettete Liste (LDR) abgearbeitet und nach dem Module "kernel32.dll" gesucht: wird sie gefunden, darfs weiter gehen
Diese beiden Punkte zusammen entsprechen ja der Funktion GetModuleAddress('kernel.dll').
Mit dieser Adresse und dem...