[[cHackAll]]

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