Ver Mensaje Individual
  #5  
Antiguo 31-08-2016
Avatar de BDWONG
BDWONG BDWONG is offline
Miembro
NULL
 
Registrado: nov 2013
Posts: 113
Reputación: 11
BDWONG Va por buen camino
Cool

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;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }



{$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....
Responder Con Cita