Executar comando externo no Lazarus [RESOLVIDO]

removido
(usa Nenhuma)

Enviado em 05/11/2011 - 20:58h

Boa noite pessoal,

Estou criando um programa que funcionará para chamar outros programas, mas ainda não sei qual o código que permite chamar programas externos. Sei que no Windows é exec ('programa'), mas no Linux não sei como usar este recurso.

Obrigado a quem puder me ajudar.

andrezc
(usa Debian)

Enviado em 05/11/2011 - 21:51h

Use o TProcess, da unit Process, e depois atribua o comando à sua propriedade CommandLine. É algo como:

uses 
  Process;
var
   cmd : TProcess;
begin
   try
      {Cria o componente em tempo de execução}
      cmd:= TProcess.Create(Self);
      {Atribui um comando, como o "pwd", por exemplo}
      cmd.CommandLine := 'pwd';
      {Executa o comando}
      cmd.Execute;
   finally
     {Libera da memória}
      cmd.Free;
   end;
end;