Mengambil Lokasi Aplikasi

//Mengambil Lokasi Aplikasi ...

Var a:string ;
Begin
a := extractfilepath(application.exename);
Showmessage(a);
end;


{
: (itu)
:= (adalah)
; (istirahat)
showmessage (tampilkan pesan)
extractfilepath (ekstrak data lokasi)

}