Hola pues si no sabes como crearte una DLL puedes mirar este enlace
http://www.ajpdsoft.com/modules.php?...rticle&sid=261
Quedaria asi
Código Delphi
[-]library Funcion;
{$R *.res}
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;
exports ShowGameMessage_Fixed;
begin
end.
Si aun asi no puedes te dejo la DLL ya compilada
https://www.sendspace.com/file/r4cf8x
El codigo ha sido compilado con Delphi berlin 10 en un sistema operativo de 32 bits
PD: No la he probado solo la compile eso te queda como tarea.
Saludos....