[color=darkred]Executar EXE depois de outro EXE(problema c\
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
Curtidas 0
Respostas
Vasques
31/05/2003
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á.
GOSTEI 0