MSIEXEC DELPHI DX, erro
27/05/2019
0
Ola,
Estou com seguinte problema, porém no meu nível e difícil.
seguinte, estou fazendo a baixa e instalação de um drive de um link especifico, no meu caso consigo executar manualmente e pelo cmd usando msiexec, porém quando eu uso no Delphi em procedure não consigo.
*certifiquei se o arquivo existe.
*consigo executar e instalar usando o mouse.
*usando msiexec manualmente o cmd ok
*o arquivo esta na extensão .msi
porém quando chamo essa função abaixa consigo entrar na condição, no entanto quando e executado o comando, apresentar a seguinte mensagem
'Este pacote de instalação não pode ser aberto. verifique se o pacote exite e se você pode acessa-lo ou entre em contato com o o fornecedor do aplicativo para verificar se este é um pacote valido do Windows Installer.'
procedure TFormPrincipal.eInstalaDrive(Nome: string);
begin
if Nome = 'safenet-pro72k-x64.msi' then
begin
ShowMessage('intalando aqui: '+Nome);
// WinExec('msiexec /i c:\\soluti\\safenet-pro72k-x64.msi',SW_SHOW);// foi usado essa forma sem exito por aqui
WinExec('cmd /C msiexec /i c:\\soluti\\SafeNet-Aladin(x64).msi',SW_SHOW);// esse aqui tbm sem exito.
end
else
.
.
.
Alguém consegue me auxiliar nesse caso. obrigado.
Estou com seguinte problema, porém no meu nível e difícil.
seguinte, estou fazendo a baixa e instalação de um drive de um link especifico, no meu caso consigo executar manualmente e pelo cmd usando msiexec, porém quando eu uso no Delphi em procedure não consigo.
*certifiquei se o arquivo existe.
*consigo executar e instalar usando o mouse.
*usando msiexec manualmente o cmd ok
*o arquivo esta na extensão .msi
porém quando chamo essa função abaixa consigo entrar na condição, no entanto quando e executado o comando, apresentar a seguinte mensagem
'Este pacote de instalação não pode ser aberto. verifique se o pacote exite e se você pode acessa-lo ou entre em contato com o o fornecedor do aplicativo para verificar se este é um pacote valido do Windows Installer.'
procedure TFormPrincipal.eInstalaDrive(Nome: string);
begin
if Nome = 'safenet-pro72k-x64.msi' then
begin
ShowMessage('intalando aqui: '+Nome);
// WinExec('msiexec /i c:\\soluti\\safenet-pro72k-x64.msi',SW_SHOW);// foi usado essa forma sem exito por aqui
WinExec('cmd /C msiexec /i c:\\soluti\\SafeNet-Aladin(x64).msi',SW_SHOW);// esse aqui tbm sem exito.
end
else
.
.
.
Alguém consegue me auxiliar nesse caso. obrigado.
Brenno Lima
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)