Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
Nada Novato
Registrado: Quarta-Feira, 29 de Dezembro de 2004 Mensagens: 37
|
Enviada: Qui Jan 13, 2005 1:58 pm Assunto: SSH em delphi |
|
|
Galera, é uma dúvida que talvez alguém aqui possa me responder, eu gostaria de saber se há possibilidade de desenvolver um programa, que funcionaria similar ao ssh. Seria um interpretador de comandos linux. Eu poderia executar comandos como ls, cd...etc.
Se alguem souber de algo parecido ou pelo menos me dar uma ajuda inicial eu ficarei muito grato.
obrigado
========================================================
Título Edidato
[Editado em 13/1/2005 por sh@dow] |
|
Voltar ao Topo |
|
|
sh@dow Mestre
Registrado: Domingo, 21 de Março de 2004 Mensagens: 807
|
Enviada: Qui Jan 13, 2005 2:17 pm Assunto: SSH em delphi |
|
|
=======================================================
2- Não poste mensagens com o título ou o texto em maiúsculas, isto é extremamente desagradável, equivale a GRITAR. Além de ser desagradável de ler, é injusto, pois faz com que sua mensagem tenha mais destaque que as demais.
======================================================= _________________ <a>Regras do fórum</a> |
|
Voltar ao Topo |
|
|
Nada Novato
Registrado: Quarta-Feira, 29 de Dezembro de 2004 Mensagens: 37
|
Enviada: Qui Jan 13, 2005 2:24 pm Assunto: SSH em delphi |
|
|
TA BOM PODE DEIXAR.... |
|
Voltar ao Topo |
|
|
KMerlotti Moderador
Registrado: Terça-Feira, 27 de Janeiro de 2004 Mensagens: 3032 Localização: Votuporanga / SP
|
Enviada: Sáb Jan 15, 2005 4:13 pm Assunto: SSH em delphi |
|
|
amigo...
coloque um edit, ajuste a propriedade CharCase para LowerCase e no onkeypress dela vc faz:
if key = #13 then [i] //se o cara apertou enter[/i]
begin
with Edit1 do
begin
if Trim(Text)=\'dir\' then [i] //verifica o comando digitado[/i]
begin
[i] //procedimento do comando dir[/i]
end
else
if Trim(Text)=\'cls\' then
begin
[i] //procedimento do comando cls[/i]
end;
Clear;
SetFocus;
end; [i] //fim do with .. do[/i]
if key=#27 then [i] //se for esc[/i]
begin
edit1.Clear;
edit1.SetFocus;
end;
end;
Foi uma idéia.. mas será trabalhoso!
Qualquer dúvida, postae!
Abraços! _________________ Kelver Merlotti - Coordenador Editorial da Active Delphi
http://twitter.com/kmerlotti
Por favor, leia as regras do fórum. |
|
Voltar ao Topo |
|
|
|