EXE where the path

Procedure Tform1.btn1click (sender:tobject); Begin//full path E:\UsrSoft\Desktop\FileNameDemo\Project1.exe edt1.  Text: = paramstr (0); Edt1. Text: = Application.exename; Ibid//file path E:\UsrSoft\Desktop\FileNameDemo edt2.  Text: = Extractfilepath (Application.exename); The file is located in the folder E:\UsrSoft\Desktop\FileNameDemo Edt6.  Text: = Extractfiledir (Application.exename); File name. extension Project1.exe edt3.  Text: = Extractfilename (Application.exename); . extension. exe EDT4.  Text: = Extractfileext (Application.exename); Remove extension edt5. Text: = Changefileext (Extractfilename (Application.exename), "); Project1 edt7. Text: = Changefileext (Application.exename, "); E:\UsrSoft\Desktop\FileNameDemo\Project1//change extension E:\UsrSoft\Desktop\FileNameDemo\Project1.zip edt8.  Text: = Changefileext (Application.exename, '. zip '); Change the file name E:\UsrSoft\Desktop\FileNameDemo\Project1_20150225154703.exe edt9. Text: = Changefileext (Application.exename, ') + ' _ ' + formatdatetime (' Yyyymmddhhmmss ', now) + Extractfileext (ApPlication. exename); end;

EXE where the path