Hola,
Cita:
|
Empezado por Neftali
Código Delphi [-]
path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'Splash.BMP';
|
No es por ser puñetero (bueno, un poco sí que lo es) pero no dejaré decir un par de cosas respecto de la instrucción anterior, muy simples, en realidad no aportan nada, pero, ya digo que no es por ser puñetero...
La primera es que la función "IncludeTrailingBackSlash" en realidad llama a la función "IncludeTrailingPathDelimiter", y en el propio código (¿o era en la ayuda?) se dice que la segunda sustituye a la primera.
Ya ves tú. La segunda es que sobra el uso de la función susomentada, puesto que "ExtractFilePath" devuelve el camino ya con la barra invertida, por lo que "IncludeTrailingBackSlash", esto es, "IncludeTrailingPathDelimiter", en realidad no hace nada.
Por todo lo dicho podría quedar la instrucción como sigue:
Código Delphi
[-]
path := ExtractFilePath(Application.ExeName) + 'Splash.BMP';
Y si se me apura mucho y puesto a ser puñetero, pero, puñetero de verdad, diría que me gusta más algo como lo siguiente:
Código Delphi
[-]
path := ExtractFilePath(ParamStr(0)) + 'Splash.BMP';
Y esto es así como digo porque la clase "Application" se halla en la unidad "Forms", mientras que la función "ParamStr" se halla en la unidad "System", la cual todos sabéis se incluye "por defecto" por Delphi, sin que nosotros tengamos que añadirla. Y no digo más, que hasta lo dicho puede ser demás.