problema llamando a una DLL

[dec]

Hola,

Puedes incluir los prototipos de las funciones de la DLL dentro de la "interface" de la unidad en donde quieras utilizarlas. O, de otro modo, puedes incluirlas dentro de la "interface" de una determinada unidad creada a tal efecto. Luego podrías incluir dicha unidad en otras en donde quisieras hacer uso de las funciones en cuestión.

Por ejemplo, mira cómo añadirlas en una determinada unidad:

Código Delphi [-]
unit UMisFunciones;

interface

  {
    Declaraciones públicas de esta unidad
  }
  function MiFuncion(Variable: String): Integer; external 'MiLibreria.dll';
  procedure MiProced(Variable: String): String; external 'MiLibreria.dll';

implementation

end.

Luego podrías incluir la unidad "UMisFunciones" allí donde quisieras hacer uso de ella.

La siguiente es una unidad "real" que contiene una función que se encuentra en determinada DLL:

Código Delphi [-]
unit XpTheme;

interface

uses
  Windows;

  function IsThemeActive : BOOL; external 'uxtheme.dll' name 'IsThemeActive';

implementation

end.

En cualquier otra unidad podría hacer uso de la función "IsThemeActive" con solo añadir la unidad que la contiene:

Código Delphi [-]
uses
  XpTheme;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsThemeActive then
    ShowMessage('El tema de Windows XP está activo')
  else
    ShowMessage('No hay ningún tema de Windows XP activo');
end;