Duda haciendo Librerías DLL

[[enecumene]]

Holas compañeros, estoy aprendiendo a crear y usar librerias DLL, tengo este código:

Código Delphi [-]
library Project1;

uses
  SysUtils,
  Graphics,
  Classes;

{$R *.res}

procedure Hola; stdcall; export;
begin
        ShowMessage('Holaaaaaaaa');
end;

procedure Fondo; stdcall; export;
var color: TColor;
begin
  color := clWhite;
end;


exports
    Hola,
    Fondo;

begin
end.

el pedazo de codigo que esta en negrita, no se si es correcto, al compilar no me da problemas, asi es como lo estoy llamando:

Código Delphi [-]
procedure Hola; external 'EjemploDLL.dll';  
procedure Fondo; external 'EjemploDLL.dll'; 

procedure TForm1.Button1Click(Sender: TObject);
begin         
   Hola; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color := Fondo;
end;

cuando intento correr la aplicacion, me da este error:

Interface not supported

me imagino que el problema viene del procedimiento Fondo de la Librería. cual es la manera correcta de hacerlo?

saludos

[ixMike]

Es porque está mal declarada en la DLL. Debería ser una función:

Código Delphi [-]
function Fondo: TColor; stdcall; export;
begin
  Result := clWhite;
end;

Y en tu programa:

Código Delphi [-]
procedure Hola; external 'EjemploDLL.dll' name 'Hola';
Function Fondo: TColor; external 'EjemploDLL.dll' name 'Fondo';

Salu2.


P.D.: ¡Ahí va! ¡Respondiendo a la duda de un milenario! ayudaaaa... esto es el mundo al revés

[[enecumene]]

Gracias IxMike, ya lo tengo claro.

Saludos.