Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   posiciones en memoria de APIs (https://www.clubdelphi.com/foros/showthread.php?t=53673)

jw4v32 26-02-2008 23:24:59

posiciones en memoria de APIs
 
hola a todos, estoy comenzando a programar un EXE CRYPTOR y necesito saber como sacar las representaciones hexadecimales de las funciones LoadLibraryA , GetProcAddress, etc en memoria.

el codigo que me dieron es el de acontinuacion:

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
 hKernel32: THandle;
begin
 hKernel32:= LoadLibrary('kernel32.dll');
 ShowMessage(GetProcAddress(hKernel32,'LoadLibraryA'));
end;

pero esto solo me provoca el siguiente error:

Código:

[Error] Unit1.pas(31): Incompatible types: 'String' and 'Pointer'
andube investigando acerca de los punteros y se mas o menos lo que nesecito:


un tipo ^Integer : puntero a un entero

y la funcion IntToHex de SysUtils

pero no se bien como aplicarlo.

me explico?

Saludos el foro esta re groso!! =)

cHackAll 27-02-2008 02:40:16

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Handle: Cardinal;
begin
 Handle := LoadLibrary('kernel32.dll');
 ShowMessage(IntToHex(Cardinal(GetProcAddress(Handle, 'LoadLibraryA')), 8));
end;


La franja horaria es GMT +2. Ahora son las 11:24:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi