Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
programa, quando executo na minha maquina ele cria o arquivo DLL blz, porem quando executo o mesmo arquivo em outro micro ele da a mensagem que o sistema não pode iniciar pois esta faltando a bendita da DLL.
Unit:
unit CreateDLL;
interface
uses
Winapi.Windows, System.Classes, System.SysUtils, Vcl.Forms;
procedure gerarDLL;
implementation
{$R eCISHook.res}
procedure gerarDLL;
var
Path: String;
Res: TResourceStream; //MessageBox(0, 'Gerardll!','', mb_IconHand);
Path := ExtractFilePath(Application.ExeName) + 'eCISHook.dll';
Res := TResourceStream.Create(HInstance, 'eCISHook', 'DLL');
Try
Res.SavetoFile(Path);
Finally
Res.Free;
End;
end;
initialization
begin
gerarDLL;
end;
end.
Source do Projeto
program eCISClient;
{$R *.dres}
uses
Windows,
System.SysUtils,
System.Win.ComObj,
Winapi.ActiveX,
MidasLib,
Vcl.Forms,
CreateDLL in 'CreateDLL.pas',
DMCLient in 'DMCLient.pas' {DM: TDataModule},
CISClient in 'CISClient.pas' {FormCISClient},
uProxyClient in 'uProxyClient.pas',
uUtil in '..\Persistent\uUtil.pas',
uWMI_Parametros in '..\Persistent\Entity\uWMI_Parametros.pas',
uEntities in '..\Persistent\uEntities.pas';
......Carregando comentários...