How to find out program path (Views: 27)
Problem/Question/Abstract: How to find out program path Answer: function Path_App: string; var x: string; y: string; begin x := ParamStr(0); y := ExtractFileName(ParamStr(0)); Result := copy(x, 0, length(x) - length(y)); end; |