Pra começar crie uma nova aplicação, instancie no form um
botão e um memo.
No início do código fonte da aplicação, defina o uso da API Libc
na cláusula "uses":
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, Libc;
Dê um duplo clique no botão e vamos começar a programar! Adicione o
seguinte código ao evento de clique no botão:
procedure TForm1.Button1Click(Sender: TObject);
var
Processos : PIOFile;
Linha : Array[0..254] of Char;
begin
Processos := popen(pchar(ls -lah), 'r');
while fgets(Linha,255,Processos) <> nil do begin
Memo1.lines.add( Trim( String(Linha) ) );
end;
pclose(Processos);
end;
Pronto! Ao executar a aplicação poderemos ver o conteúdo da saída do
comando "ls -lah" no memo.
Os comandos que nos permitiram isso foram o popen(), que executa
o comando em si e o Memo1.lines.add(), que para cada linha da
saída do comando adicionou uma linha ao objeto Memo1. Simples né?
Um abraço,
Anderson Lazzari
Como fazer seu programa Kylix chamar uma aplicação externa
Versão para impressora
Indicar para um amigo
Enviar artigo