Librería de iconos con delphi
Mi consulta es la siguiente, tengo archivos icl "librería de iconos" y dll con varios iconos, como puedo hacer para que en un programa pueda ver uno o todos los iconos dentro de estos archivos. He probado enviando la path del archivo a un Image así "...\archivo.icl, 12" y "...\archivo.dll, 12" y me da error.
1 Respuesta
Respuesta de gaunmanuel
1
Bueno mira independientemente de lo que quieras ver de la dll primero tienes que declararla y cargarla.. así:
function SetLoginPassw:Boolean; external 'C:\CreacionComponentes\LoginDll\Login.dll';
Este es un ejemplo ahora la función que declaras en este caso SetLoginPassw así también se debe llamar en la dll ok.
Espero que este entendible de como declarar y cargar mira ten envío todo el ejemplo completo, esta función simplemente devuelve un valor boolean ok.
unit Unit1;
Interface
Uses
Sharemem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function SetLoginPassw:Boolean; external 'C:\CreacionComponentes\LoginDll\Login.dll';
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
begin
if not SetLoginPassw then
Application.Terminate;
end;
end.
function SetLoginPassw:Boolean; external 'C:\CreacionComponentes\LoginDll\Login.dll';
Este es un ejemplo ahora la función que declaras en este caso SetLoginPassw así también se debe llamar en la dll ok.
Espero que este entendible de como declarar y cargar mira ten envío todo el ejemplo completo, esta función simplemente devuelve un valor boolean ok.
unit Unit1;
Interface
Uses
Sharemem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function SetLoginPassw:Boolean; external 'C:\CreacionComponentes\LoginDll\Login.dll';
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
begin
if not SetLoginPassw then
Application.Terminate;
end;
end.
