![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#8
|
|||
|
|||
|
Si yo por el error que dices yo creo que uhilari tiene razon.
Por ejemplo ESTATICA //declaracion procedure DllMessage(s:string); external 'dll.dll' //La llamas procedure TForm1.Button1Click(Sender: TObject); begin DllMessage('hola'); end; ---------------------------------------------------- DINAMICA //declaracion type GetFunc = procedure( Param: string ); register; var GF : GetFunc; H : Thandle; //La llamas procedure TForm1.Button1Click(Sender: TObject); begin h := LoadLibrary( 'dll.dll' ); If H <> NULL then begin @GF := GetProcAddress( h, 'DllMessage' ); GF('hola'); FreeLibrary( h ); end; end; Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|