Get the path to the current application

Function GetApplicationPath: String; var strtmp: string; begin stramp: = getstanpath (extractfilepath (application.exename); result: = stramp;

Function getstanpath: string; begin result: = apath; if result [length (result)] <> / 'Then Result: = Result ' / '; end;