Fórum [color=darkred]Executar EXE depois de outro EXE(problema c\ #163848

31/05/2003

0

Preciso de executar o setup criado pelo installshield, apartir de um programa feito por mim. E depois da instalação do setup voltar ao meu programa.
Tirei este exemplo do clube delphi que funciona bem para todos os programas, mas não funciona para o setup criado com o installshield.

//Este funciona, e testei com varios outros programas
var startupinfo: Tstartupinfo;
ProcessInfo: TprocessInformation;
begin
FillChar(startupinfo,sizeof(Tstartupinfo),0);
startupinfo.cb:=sizeof(Tstartupinfo);
if createProcess(nil, ´notepad.exe´,nil,nil,false,normal_priority_class,nil,´c:\windows´,startupinfo,processinfo) then
waitforsingleobject(processinfo.hprocess,infinite);
closehandle(processinfo.hprocess);
showmessage(´NotePad concluido.´);
end;

//Este não funciona!Ou seja dá um erro no meu programa, e só depois de o fechar é que corre o setup

var startupinfo: Tstartupinfo;
ProcessInfo: TprocessInformation;
begin
FillChar(startupinfo,sizeof(Tstartupinfo),0);
startupinfo.cb:=sizeof(Tstartupinfo);
if createProcess(nil, ´Setup.exe´,nil,nil,false,normal_priority_class,nil,PChar(ExtractFilePath(Application.ExeName)),startupinfo,processinfo) then
waitforsingleobject(processinfo.hprocess,infinite);
closehandle(processinfo.hprocess);
showmessage(´Setup concluido.´);
end;

Obrigado desde já a quem me possa ajutar


Jf

Jf

Responder

Posts

02/06/2003

Vasques

tambem tenho esse problema.
já tentei com dessa forma e o problema é o mesmo. Funciona com todos os programas menos com o installshield.


se alguem poder ajudar, é urgente.

obrigado desde já.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar