Pegar nome do executável
Bom dia a Todos.
Gentem, estou precisando de uma ajuda.
Estou tentando criar um executável em delphi onde o mesmo me mostre o nome do executável.
eu coloco um TopenDialog para abrir e localizar o executável.
Em um Edit registro todo o caminho, por exemplo: C:\Program Files\7-Zip\SevenZip.exe.
Gostaria de um método para pegar somente o SevenZip.exe do caminho C:\Program Files\7-Zip\SevenZip.exe.
Alguma sugestão?
Gentem, estou precisando de uma ajuda.
Estou tentando criar um executável em delphi onde o mesmo me mostre o nome do executável.
eu coloco um TopenDialog para abrir e localizar o executável.
Em um Edit registro todo o caminho, por exemplo: C:\Program Files\7-Zip\SevenZip.exe.
Gostaria de um método para pegar somente o SevenZip.exe do caminho C:\Program Files\7-Zip\SevenZip.exe.
Alguma sugestão?
Fábio Sela
Curtidas 0
Respostas
Marco Salles
20/06/2012
Sugestão é utilizar o Posex procurando a Ultima Barra e utilizar um copy desta posicão ate o Final
Porém com expressões Regulares vc deve conseguir isto de modo mais atual
utilize a função function StrRight(psTexto: string; pcChar:Char):string;
ver em
http://marcosalles.wordpress.com/2012/03/11/expressoes-regulares-regularexpressions-in-delphi-tregex/
dar uses a RegularExpressions
e para utilizar faça
Showmessage(StrRight(edit1.text,/));
Porém com expressões Regulares vc deve conseguir isto de modo mais atual
utilize a função function StrRight(psTexto: string; pcChar:Char):string;
ver em
http://marcosalles.wordpress.com/2012/03/11/expressoes-regulares-regularexpressions-in-delphi-tregex/
dar uses a RegularExpressions
e para utilizar faça
Showmessage(StrRight(edit1.text,/));
GOSTEI 0
Marco Salles
20/06/2012
Deu tudo certo amigo ???
Ou restou alguma dúvida ???
Era isto mesmo que vc queria ou não ??
Ou restou alguma dúvida ???
Era isto mesmo que vc queria ou não ??
GOSTEI 0
Imex
20/06/2012
Boa noite,
Experimente utilizar a função ExtractFileName mais ou menos desta forma:
Espero que ajude.
Experimente utilizar a função ExtractFileName mais ou menos desta forma:
ShowMessage( ExtractFileName(edtNomeDoArquivo.Text) );
Espero que ajude.
GOSTEI 0
Fábio Sela
20/06/2012
Marco, tento compilar e da um erro.
[Error] untNomedaAplicacao.pas(40): ; expected but . found
[Error] untNomedaAplicacao.pas(40): ; expected but . found
GOSTEI 0
Fábio Sela
20/06/2012
desta ultima maneira funcionou.
Obrigado, topico encerrado.
Obrigado, topico encerrado.
GOSTEI 0
Fábio Sela
20/06/2012
desta ultima maneira funcionou.
Obrigado, topico encerrado.
Obrigado, topico encerrado.
GOSTEI 0
Fábio Sela
20/06/2012
desta ultima maneira funcionou.
Obrigado, topico encerrado.
Obrigado, topico encerrado.
GOSTEI 0