Puedes usar un instalador a tu programa como por ejemplo
InnoSetup (si buscas por ese nombre por aquí seguro que encontrarás toda la ayuda que necesites).
Con él instalas tú programa en el cliente, con todas las librerías y el se encargará de registrarlas.
Tambien puedes instalarlas tú desde tú programa:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, Registry;
type
TForm1 = class(TForm)
Panel1: TPanel;
btnRegistrar: TSpeedButton;
Memo1: TMemo;
procedure btnRegistrarClick(Sender: TObject);
procedure Aadir1Click(Sender: TObject);
procedure Borrar1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnRegistrarClick(Sender: TObject);
type TDLLRegisterServer = function: HResult stdcall;
var HLib : THandle;
Registrar : TDllRegisterServer;
x : Integer;
aLib : String;
begin
for x := 0 to chkLibs.Items.Count - 1 do begin
try
try
aLib := 'c:\DirectorioDondeEstanLasDLLS' + chkLibs.Items.strings[x];
HLib := LoadLibrary(PChar(aLib));
Registrar:= GetProcAddress(HLib, 'DllRegisterServer');
if Registrar <> 0 then ShowMessage('Error al copiar o al registrar la libreria: ' + aLib);
except
ShowMessage('Se produjo un error desconocido durante el proceso');
end;
finally
FreeLibrary(HLib);
end;
end;
end;
end;
Lo que no entiendo es esto:
Cita:
Empezado por comba
O que puedo hacer para indicarle a mi programa donde están las librerias necesarias.
|
Dónde están, ¿cuándo?, ¿al ejecutar el programa o escribir su código para usar sus funciones?
Saludos