Obtener Wallpaper en XP

[MaMu]

Bueno, encontre un error, resulta que esta linea

Código Delphi [-]
exten:=ExtractFileExt(ComboBox1.Text);

Trato a la extensión como una string, cuyo resultado me devueve, sea BMP o JPG lo siguiente: ".jpg" y ".bmp"

y cuando comparaba, lo hacia mal, me faltaba el puntito

Código Delphi [-]
if (exten='JPG')

asi que lo cambie por

Código Delphi [-]
if (exten='.JPG')

Y ahora si me escribe en el registro, y en el OnShow, detecta el nombre nuevo, ahora el tema esta que me muestra toda la pantalla gris, como cuando no ponemos ningun wallpaper, por que es?

[MaMu]

Listo. Ya está, el error se solucionó cuando quite el tratamiento de la extensión, dejandolo asi

Código Delphi [-]
procedure TLocal.dxButton11Click(Sender: TObject);
var root : string;
begin
root:=ExtractFilePath(Application.ExeName);
abfImage1.Picture.LoadFromFile('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
SetWallpaper('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text,root+'temp\nuevo.bmp');
Local.OnShow(self);
end;

Asi me funciona sea BMP o sea JPG, creandomelo en root+'temp\nuevo.bmp' perfectamente. Me parece que biene por ese lado, digamos una suerte de sensibilidad de ExtractFileExt a lo pChar y a lo pAnsiChar, cosa que desconozco, pero aun pifiandole me inclino por ese lado.

[[seoane]]

Aquí un ejemplito de como lo haría yo.

[dec]

Hola,

Cuando comparamos cadenas con funciones que retornan cadenas... suele forzarse el "case" de estas de modo que podamos estar seguros de qué comparamos. Esto es, nos valemos de funciones como "LowerCase" o "UpperCase":

Código Delphi [-]
if UpperCase(ExtractFileExt(FArchivo)) = '.JPG' then
  {...}

[[seoane]]

Empezado por dec

Cuando comparamos cadenas con funciones que retornan cadenas... suele forzarse el "case" de estas de modo que podamos estar seguros de qué comparamos. Esto es, nos valemos de funciones como "LowerCase" o "UpperCase"

O usamos AnsiSameText

De todas formas, ya que carga la imagen previamente en un TImage, por que no comprobar el formato gráfico de la imagen cargada, en vez de andar comprobando su extensión.