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
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
Curtir tópico
+ 0
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á.
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
Clique aqui para fazer login e interagir na Comunidade :)