Pages

terça-feira, 7 de junho de 2011

Extrair nome, local da aplicação e EXT

Para pegar o nome:

ExtractFileName(Application.ExeName);

Para pegar o caminho:

ExtractFilePath(Application.ExeName);

Para pegar a Ext:

ExtractFileExt(Application.ExeName);


Utilizando na pratica.



Coloque:
- 1 TButton
- 6 Label
- 1 TOpenDialog

Organize os componentes parecido com a imagem a baixo. E mantenha os nomes originais.


Agora vamos a programação no evento OnClick do Button1 cloque:


if OpenDialog1.Execute then

begin
 Label4.Caption:= ExtractFilePath(OpenDialog1.FileName);
 Label5.Caption:= ExtractFileName(OpenDialog1.FileName);
 Label6.Caption:= ExtractFileExt(OpenDialog1.FileName);
end;

Pronto agora execute o a aplicação (F9) e veja o resltado.


Saiba mais sobre as funções:
http://www.delphibasics.co.uk/RTL.asp?Name=ExtractFilePath


Nenhum comentário:

Postar um comentário