olha, eu fiz um sw q faz exatamente isso... vai aí uma ajudinha...
Ele cria um txt com o resultado do comando DOS...
var
StartUpInfo : TStartUpInfo;
ProcessInformation : TProcessInformation;
rc : boolean;
Handle : THandle;
x : string;
c : array[0..200] of char;
i : integer;
begin
GetStartUpInfo(Startupinfo);
handle := createfile('C:\LOG.TXT',GENERIC_READ or
GENERIC_WRITE,0,nil,CREATE_ALWAYS,0,0);
with StartUpInfo do
begin
hStdOutput := handle;
wshowWindow := SW_HIDE;
dwflags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
end;
x := 'command.com /c DIR';
for i := 0 to 200 do
c[i] := #0;
StrPCopy(c,x);
rc := CreateProcess(nil,
c,nil,nil,true,0,nil,nil,Startupinfo,ProcessInformation);
if rc then
begin
WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
end;
closehandle(handle);
winexec('notepad c:\log.txt',sw_show);
end;
----- Original Message -----
From: Marcos André
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 09, 2006 5:02 PM
Subject: RES: [delphi-br] Resposta do Modo DOS
Olá Rubem,
Poderia citar alguns lugares que podemos baixar demos de
aplicações consoles?
Um Abraço
__ __
/ \ /| |'-.
.\__/ || | |
_ / `._ \|_|_.-'
| / \__.`=._) (_ Marcos André
|/ ._/ |"""""""""|
|'. `\ | | Analista de Sistema
;"""/ / | | Easy Corporation
) /_/| |.-------.| <http://www.e-easy.com.br/> www.e-easy.com.br |
<http://www.eassyxp.com.br/> www.eassyxp.com.br
' `-` ' " " msn: <mailto:[EMAIL PROTECTED]>
[EMAIL PROTECTED]
Desenvolvimento e hospedagem de sites apartir de R$ 4,00
Planos profissionais com qualidade.
Consulte nossos planos: <http://www.e-easy.com.br/> www.e-easy.com.br
Desenvolvimento de sistemas e sistemas prontos para comercializar,
ferramentas para desenvolvedores e muito mais: <http://www.easyxp.com.br/>
www.easyxp.com.br.
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 9 de junho de 2006 16:47
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Resposta do Modo DOS
Prioridade: Alta
Vc pode criar aplicações em Delphi em modo console (erradamente conhecidas
como aplicações em 'modo MS-DOS'). Consulte a respeito da diretiva $APPTYPE.
Tem exemplos tb na Internet de como fazer aplicações console com Delphi.
Sds.
>From: "Rodrigo Izquierdo da Motta" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Resposta do Modo DOS
>Date: Wed, 7 Jun 2006 20:48:40 -0300
>
>Ola Lista!
>
>Estou querendo fazer um programinha simples, que usa o MD5 que roda em DOS,
>pra verificar se 2 arquivos sao iguais ou naum, mas o MD5 que eu tenho
>aqui,
>eh modo DOS, e queria fazer uma funcao pra rodar esse comando do DOS, e
>capturar sua resposta, procurei algumas coisas, mas soh achei resposta com
>o
>Builder, mas queria fazer com o Delphi, alguem sabe como fazer isso!?
>
>Obrigado a Todos!
>
>Rodrigo Izquierdo da Motta
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
