Ver Mensaje Individual
  #3  
Antiguo 02-02-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
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
    { Private declarations }
  public
    { Public declarations }
  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));
        {Hallamos la direccion de la funcion para registrar el OCX}
        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
Responder Con Cita