Executaveis dentro de DLL ?

Question

Bom pessoal,tenho um sistema com varios m�dulos, separados por execut�veis cada m�dulo um executavel.gostaria de saber se tem como colocar esses executaveis em DLL ???...

Fabiano G�es · Answer

tipo, queria comolar todos os executaveis dentro de uma dll, ai com um aplicativo gerenciador de tarefas eu ia abrindo os executaveis da dll...

Thiago Vidal · Answer

esta � uma �tima pr�tica, eu tamb�m fa�o muito disso, assim vc pode atualizar apenas uma DLL, sem precisar transferir o sistema como um todo. e tamb�m, pode at� personalizar a compila��o de uma ou outra DLL para um determinado cliente.

Bom, para fazer isso, supondo que o seu executavel se chame Project1 e seu form principal se chama TForm1:
O Arquivo DPR come�a assim:

program Project1;

uses
  Forms,
  Unit1 in �Unit1.pas� ;

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

para ficar assim:

library Project1;

uses
  SysUtils,
  Classes,
  Forms,
  Unit1 in �Unit1.pas� ;

{$R *.res}

procedure Iniciar; stdcall;
begin
  with TForm1.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

exports
  Iniciar;

begin
end.

e no programa principal, usar a seguinte rotina para chamar as DLLs:

procedure TForm1.AbreDLL(FileName: TFileName);
var
  DLL: THandle;
  Iniciar: procedure; stdcall;
begin
  DLL := LoadLibrary(PChar(FileName));
  if (DLL = 0) then
    RaiseLastOSError;
    
  try
    @Iniciar := GetProcAddress(DLL, �Iniciar�);
    if (@Iniciar = nil) then
      RaiseLastOSError;

    Iniciar;
  finally
    FreeLibrary(DLL);
  end;
end;

Recomendo n�o alterar o arquivo DPR diretamente, o ideal seria iniciar um novo projeto (DLL Wizard) e adicionar as Units do projeto.

Desta forma, todas as DLLs deveriam ter uma rotina chamada �Iniciar� de forma que qualquer uma poderia ser chamada do mesmo modo. A rotina pode ter qualquer nome, desde que seja corretamente colocada na cl�usula �exports� da DLL e no m�todo �GetProcAddress� da rotina que a chama.

No meu caso, ao inv�s de procedure, utilizo uma function: Boolean, e na chamada da DLL, a linha do ShowModal fica Result := (ShowModal = mrOk) que retorna True se a pessoa clicar no bot�o padr�o, desta forma vc sempre poder� retornar um dado para o usu�rio.

Lembrando apenas que usando a conven��o �stdcall� vc poder� enviar parametros e receber resultados da DLL, desde que nao sejam strings ou arrays dinamicas. Se precisar trocar dados deste tipo, deixe uma mensagem que eu posto um exemplo pr�tico, sem precisar da unit ShareMem que o Delphi recomenda.

No mais, qualquer d�vida, estou � disposi��o!

Fabiano G�es · Answer

thiago_vidal,muito obrigado cara, muito util a sua id�ia !!!!valeu !!!...

F�rum Executaveis dentro de DLL ? #327732