Executar Executável

[jeffersonbds]

Em projetos VCL:

WinExec('C:\caminho\executavel.exe')

Em projetos CLX:

?????????????????????????

?????Alguém sabe????????

?????????????????????????

[jeffersonbds]

Eu mesmo achei a resposta. Para quem se interessar:

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Text <> ‘’ then

// se tem algum comando na caixa de edição, executa

WinExec(PChar(Edit1.Text),SW_SHOWNORMAL);

end;

No Linux, essa função pode ser substituída pela função system, como em:

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Text <> ‘’ then

// se tem algum comando na caixa de edição, executa

Libc.system(PChar(Edit1.Text));

end;