Abrir uma aplicação externa dentro da minha aplicação
E ae Pessoal,
Possuo 5 sistemas prontos e para meus clientes gostaria de mostrar apenas um executavel e dentro dele chamar as outras aplicações porém gostaria de abri-los dentro do meu executavel atual.
Agradeço desde já.
Abraços
Euclides
Possuo 5 sistemas prontos e para meus clientes gostaria de mostrar apenas um executavel e dentro dele chamar as outras aplicações porém gostaria de abri-los dentro do meu executavel atual.
Agradeço desde já.
Abraços
Euclides
Euclides
Curtidas 0
Respostas
Reginaldo174
28/12/2004
winexec(´c:\caminhodaaplicacao´,sw_shownormal);
GOSTEI 0
Euclides
28/12/2004
opa amigo tudo bom ???
Essa função ela executa uma aplicação externa porém apenas isto além de que esta função esta descontinuada, hoje substituida pela Shell_ execute. Agradeço pela atenção de verdade porém preciso de algo que abra uma aplicação externa dentro da minha aplicação .......
Mas muito obrigado mesmo
Abraços
Euclides
Essa função ela executa uma aplicação externa porém apenas isto além de que esta função esta descontinuada, hoje substituida pela Shell_ execute. Agradeço pela atenção de verdade porém preciso de algo que abra uma aplicação externa dentro da minha aplicação .......
Mas muito obrigado mesmo
Abraços
Euclides
GOSTEI 0
Reginaldo174
28/12/2004
preciso de algo que abra uma aplicação externa dentro da minha aplicação .......
Amigo vc quer abrir um executável a partir do seu sistema ?
é isto ? ´Tente ser mais claro´
GOSTEI 0
Euclides
28/12/2004
[quote=´reginaldo174´][quote=´Euclides´]
preciso de algo que abra uma aplicação externa dentro da minha aplicação .......
preciso de algo que abra uma aplicação externa dentro da minha aplicação .......
Amigo vc quer abrir um executável a partir do seu sistema ?
é isto ? ´Tente ser mais claro´
Acho que a minha primeira mensagem foi bem clara .... eu desejo abrir um executavel externo a partir do meu executavel porém que ele esteja dentro do executavel atual ou seja que ele seja um parent.
Muito Obrigado
Euclides
GOSTEI 0
Fsflorencio
28/12/2004
Dá uma olhada nesta procedure:
Ela chama um executável e espera o seu término para voltar o foco para sí.
procedure chamanotepad;
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:\winnt´, startupinfo, processinfo ) then
begin
waitforsingleobject(processinfo.hprocess,infinite);
end;
CloseHandle(processinfo.hprocess);
ShowMessage(´Execução do Bloco de Notas encerrada.´);
end;
Tirando isto, sugeriria vc fazer uma nova aplicação integrando os outros sistemas.
Ela chama um executável e espera o seu término para voltar o foco para sí.
procedure chamanotepad;
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:\winnt´, startupinfo, processinfo ) then
begin
waitforsingleobject(processinfo.hprocess,infinite);
end;
CloseHandle(processinfo.hprocess);
ShowMessage(´Execução do Bloco de Notas encerrada.´);
end;
Tirando isto, sugeriria vc fazer uma nova aplicação integrando os outros sistemas.
GOSTEI 0
Euclides
28/12/2004
[quote=´fsflorencio´]Dá uma olhada nesta procedure:
Ela chama um executável e espera o seu término para voltar o foco para sí.
procedure chamanotepad;
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:\winnt´, startupinfo, processinfo ) then
begin
waitforsingleobject(processinfo.hprocess,infinite);
end;
CloseHandle(processinfo.hprocess);
ShowMessage(´Execução do Bloco de Notas encerrada.´);
end;
Tirando isto, sugeriria vc fazer uma nova aplicação integrando os outros sistemas.
Ela chama um executável e espera o seu término para voltar o foco para sí.
procedure chamanotepad;
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:\winnt´, startupinfo, processinfo ) then
begin
waitforsingleobject(processinfo.hprocess,infinite);
end;
CloseHandle(processinfo.hprocess);
ShowMessage(´Execução do Bloco de Notas encerrada.´);
end;
Tirando isto, sugeriria vc fazer uma nova aplicação integrando os outros sistemas.
Opa amigo tudo bom ???
Agradeço pela sua atenção, porém em consultas no forum vi esta função porém ela executa o ´notepad´ e espera terminar a execução como se fosse um form no modelo ShowModal , certo ????
O que eu realmente gostaria era de acionar um executavel externo e ele ficar dentro do meu projeto como se fosse um mdichild, mais ou menos isso.... ok
Mas muito obrigado pela sua atenção
abraços
Euclides
GOSTEI 0