Executar aplicação for DOS

Delphi

05/08/2009

Quero executa um aplicação for DOS de dentro do meu aplicativo. Tem como? Queria fazer algo tipo o ´prompt de comando´. O usuário teclaria em um determinado botão e o mesmo executaria o aplicativo for DOS em uma janelinha, não quero maximiza-la não... e o usuário só retornaria para o aplicativo em Delphi quando o for DOS foose realmente finalizado.

Obrigado e aguardo qualquer ajuda.


Aprendiz_ce

Aprendiz_ce

Curtidas 0

Respostas

Diegotiemann

Diegotiemann

05/08/2009

  try
    outroForm :=T outroForm.Create(application);
    WinExec(´CMD.exe´,SW_NORMAL);
    Windows.SetParent( FindWindow( nil, ´C:\WINDOWS\system32\CMD.exe´ ), outroForm.handle ) ;
    outroForm.ShowModal;
  finally
     FreeAndNil( outroForm);
  end;



Eu não testei com o CMD:
Mas acho que é mais ou menos assim.

Segue um artigo que fala como executar um programa dentro do outro:
[url]https://www.devmedia.com.br/articles/viewcomp.asp?comp=13799[/url]


GOSTEI 0
Aprendiz_ce

Aprendiz_ce

05/08/2009

  try
    outroForm :=T outroForm.Create(application);
    WinExec(´CMD.exe´,SW_NORMAL);
    Windows.SetParent( FindWindow( nil, ´C:\WINDOWS\system32\CMD.exe´ ), outroForm.handle ) ;
    outroForm.ShowModal;
  finally
     FreeAndNil( outroForm);
  end;
Eu não testei com o CMD: Mas acho que é mais ou menos assim. Segue um artigo que fala como executar um programa dentro do outro: [url]https://www.devmedia.com.br/articles/viewcomp.asp?comp=13799[/url]


Beleza, pelo menos isso já é um começo...

Vou por em pratica e dou retorno.

Obrigado pela sua atenção.

Abraço.


GOSTEI 0
POSTAR