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;