MS-DOS e aplicativos de console abrindo em GUI

[Utech]

Daew pessoal...

não gostaria que meu 1° post fosse assim...

mais gostaria de uma forca aew!

Seguinte:

E eu gostaria que houvesse 2 quadros no programa, um que executaria um comando MS-DOS no em um quadro que abriria o arquivo .BAT e no outro quadro aparecesse o .EXE executando.

*Desafio: o comando do MS-DOS abriria o arquivo .EXE e quando o .EXE fosse fechado ele se reabriria no quadro de baixo.

*E no topo do programa houvesse um botao edit, onde abriria um arquivo TXT para edita, por exemplo

o programa estará na pasta C:\Test e quando apertasse o botao EDIT abriria no notepad o C:\Test\pasta1\ajuda.txt para editar-lo (ou seja, abriria já determinado o arquivo pasta1\ajuda.txt).

Codigo do MS-DOS do quandro de cima para abrir o arquivo .EXE

Exemplo do comando do MS-DOS na parte de cima, se para o delphi for diferente os comandos ou o estilo para reiniciar o programa no quandro de baixo, post como seria ou q ta errado!:

@echo off
color 87
title Test
echo Iniciado:
:begin
test.exe
echo Reiniciado
goto begin
:goto begin

Mais ou menos assim como na screen abaixo (foto ilustrativa feito no PS cs4):

http://img140.imageshack.us/i/programapronto.jpg/

Isso é tudo!

Por favor... Eu sei que isso é um pouco complicado e demorado, mais quem me ajudar será recompensado!...

Isso é mais para aprendizado meu e criarei video aulas especiais para o Scripts Brasil com os creditos de quem ajudaram para postar aqui no forum!

Caso saiba de alguma coisa que pode ser util, poste! qualquer força é bem vinda!

Editado Novembro 8, 2009 por Jonathan Queiroz
Remover caixa alta do título e corrigir tag's (Jonathan)

[Douglas Soares]

Voê está querendo executar comando dos MS-DOS na parte de cima, e na parte de baixo exibir os resultados ao invés de exibir na propria tela do DOS?, é isso?

[Utech]

não...

na parte de coma eu quero executar comando de dos, abrindo um programa em console na parte de baixo

e quando o programa é fechado por algum erro ele é reaberto pelo codigo do ms-dos de cima! que reabrira de volta na parte de baixo!

vlw pela ajuda!

[Jonathan Queiroz]

O objetivo é fazer em Delphi ou C ?

Pergunto isso porque você já postou o tópico aqui: http://scriptbrasil.com.br/forum/index.php...mp;#entry562475

[Utech]

tanto faz!

de preferencia o C++, mais como o delphi é mais facil lidar e tem mais gente q lida com ele, seria mais facil eu obter ajuda!

Editado Setembro 4, 2009 por Utech

[Jhonas]

na parte de cima eu quero executar comando de dos, abrindo um programa em console na parte de baixo

Um exemplo bem simples

uses SHellAPI;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var  Caminho: TextFile;
     Line: string;
begin
   if key = #13 then
   begin

   Memo1.Clear;
   if FileExists('c:\temp.txt') then DeleteFile('c:\temp.txt');
   WinExec(pchar('cmd.exe /c ' + pchar(edit1.text) + ' > c:\temp.txt'), 0);

   sleep(1000);
   AssignFile(Caminho, 'C:\temp.txt');
   Reset(Caminho);
   while not EOF(Caminho) do
      begin
        ReadLn(Caminho, Line);
        Memo1.Lines.Append(Line);
      end;
   CloseFile(Caminho);
   end;
end;

Voce digita o comando DOS no edit e ao teclar enter é mostrado em um Memo o resultado do comando

Uma outra maneira

http://www.nelioalves.com/arquivos/EAP_Instrucoes_Delphi.doc

Rodar um programa em MS-DOS e esperar até que o programa termine.

http://www.bsdg.org/swag/DELPHI/0292.PAS.html

Acho que com esse material voce pode ter novas idéias

abraço

[c0cac00l]

Muito bom.. Mas será que é possivel fazer isso em Sockets ? Por exemplo.. no ClientSocket tenho um Edit1.text e um botão e uma memo1 e no client ele recebe o comando para executar no msdos neste caso Winexec(PChar('cmd /c' + Socket.ReceiveText), SW_HIDE); e no ClientSocket Edit1.Text := Socket.SendText; etc Será que é possivel o ServerSocket armazenar os dados executados no ms dos e enviar de volta para o client e apresentar na memo ? Agradecia que alguém me ajuda-se..

[Jhonas]

Será que é possivel o ServerSocket armazenar os dados executados no ms dos e enviar de volta para o client e apresentar na memo ?

Possivel é ... faça uma adaptação no codigo acima

abraço

[c0cac00l]

Não sei muito bem como fazer cara.. me desculpe.. Sou Iniciante no delphi só programo a poucas semanas atrás.. a única coisa que consegui fazer foi isto

ClientSocket:

Uma Edit e um Botão

Codigo do botão:

var

shell : string;

begin

shell:=Edit1.Text;

if not assigned(lv.Selected) then exit;

ss.Socket.Connections[LV.ItemIndex].SendText(shell);

end;

No ServerSocket está assim:

var dados : String;

begin

dados:=Socket.ReceiveText;

WinExec(PChar('cmd /C' + dados), SW_HIDE);

so queria por um memo no cliente para mostrar as informações da shell que é executada na serversocket.. agradecia que alguém me ajuda-se..