Ver Mensaje Individual
  #1  
Antiguo 31-08-2016
helio helio is offline
Registrado
NULL
 
Registrado: ago 2016
Posts: 2
Reputación: 0
helio Va por buen camino
Unhappy Como compilo este codigo dll en delphi ?

hola amigos, hace poco me enviaron un codigo que necesito para un juego pero estoy muy perdido al respecto, me dieron detalles que es en delphi y el codigo es el siguiente :

Código Delphi [-]
{Function SGM
Parameters:  lpMessage is a pointer for the message you wanna show
dwIcon is the icon value you wanna show (0 = no icon)
dwColor is the color value you wanna show}
procedure ShowGameMessage_Fixed(lpMessage: PChar;dwIcon: byte; dwColor: byte);
var
dwMessage: cardinal;
procedure ShowGameMessage_Real(lpMessage: PChar);assembler;
asm

pushad
mov ecx, [dwMessage]
add ecx, $44
mov bh, [dwIcon]
mov [ecx], bh
add ecx, $47
mov [ecx], bh
add ecx, $47
mov [ecx], bh
mov bh, [dwColor]
mov ecx, [dwMessage]
add ecx, $5C
mov [ecx], bh
add ecx, $31
mov [ecx], bh
add ecx, $E
mov [ecx], bh
add ecx, $39
mov [ecx], bh
add ecx, $10
mov [ecx], bh
popad
jmp @call

@call:
lea edi, [lpMessage]
call [dwMessage]
jmp @rebuild

@rebuild:
mov [dwIcon], 6
mov [dwColor], 2
mov ecx, [dwMessage]
add ecx, $44
mov bh, [dwIcon]
mov [ecx], bh
add ecx, $47
mov [ecx], bh
add ecx, $47
mov [ecx], bh
mov bh, [dwColor]
mov ecx, [dwMessage]
add ecx, $5C
mov [ecx], bh
add ecx, $31
mov [ecx], bh
add ecx, $E
mov [ecx], bh
add ecx, $39
mov [ecx], bh
add ecx, $10
mov [ecx], bh
end;

begin
dwMessage := $00414B80;
ShowGameMessage_Real(lpMessage);
end;


pero no me quisieron ayudar para compilarlo :/ - alguien sabe como puedo hacerlo.

Última edición por Casimiro Notevi fecha: 31-08-2016 a las 12:18:28.
Responder Con Cita