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;
ShowMessage(ExtractFilePath(Application.ExeName));end;
Nenhum comentário:
Postar um comentário