Ir para conteúdo
Fórum Script Brasil

jeffersonbds

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre jeffersonbds

jeffersonbds's Achievements

0

Reputação

  1. 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;
  2. Em projetos VCL: WinExec('C:\caminho\executavel.exe') Em projetos CLX: ????????????????????????? ?????Alguém sabe???????? ?????????????????????????
×
×
  • Criar Novo...