[dec]

Hola,

Empezado por movorack

un función que uso siempre. un dia me encontré con ella en Internet y me enamoré de sus ojos.

Código Delphi [-]
function TForm.AppPath(): String;
var x,y:string;
begin
  x := ParamStr(0);
  y := ExtractFileName(ParamStr(0));
  Result := copy(x,0,length(x) - length(y));
end;

Me llamó la atención el código... ¿no se consigue lo mismo usando la función "ExtractFilePath"?

Parece que sí, pero, lo mismo se me está escapando algo.

Código Delphi [-]
var
  appPath: string;
begin
  appPath := ExtractFilePath(ParamStr(0));
end;