Ver Mensaje Individual
  #2  
Antiguo 20-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Por ejemplo...

Código Delphi [-]
library libreria;

uses
  Dialogs;

{$R *.res}

function HelpMe() : boolean; stdcall;
begin
  ShowMessage('¡Espera que voy!');
  Result := true;
end;

exports HelpMe;

end.

Código Delphi [-]
unit UfrmPrincipal;

interface

uses
  Forms, Classes,
  Controls, StdCtrls;

type
  TfrmPrincipal = class(TForm)
    btnHelpMe: TButton;
    procedure btnHelpMeClick(Sender: TObject);
  end;

var
  frmPrincipal: TfrmPrincipal;

function HelpMe : boolean; external 'libreria.dll';

implementation

{$R *.dfm}

procedure TfrmPrincipal.btnHelpMeClick(Sender: TObject);
begin
  HelpMe;
end;

end.

Y, bueno, generalizando... cargar una DLL... con la función "LoadLibrary", por ejemplo, puedes escoger la ruta de la librería a cargar...
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita