ADSENSE

ADSENSE

sábado, 16 de outubro de 2010

Function ExtractFilePath

Uses Unit SysUtils
A função ExtractFilePath retorna uma string com o path do arquivo passado com parâmetro.
ExtractFileName retorna o nome do arquivo.

Sintaxe da sua utilização:
ExtractFilePath('Nome_do_arquivo');
ExtractFileName('Nome_do_arquivo');

Ex:
procedure TForm1.BitBtn12Click(Sender: TObject);begin
       ShowMessage(ExtractFilePath(Application.ExeName));
end;

Nenhum comentário:

Postar um comentário