Papel de Parede(JPG)

Caro amigo,

Fiz um exemplo, veja abaixo

Atenciosamente,

Daniel Araújo
ICQ:111769805
www.cdinformatica.hpg.com.br

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Registry;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure UpdatePp( Path : string; LadoaLado,
Ampliado : Boolean);

end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{Como quase tudo que é configurado no Windows fica no Registro, então
vamos alterar o registro.}

procedure TForm1.UpdatePp( Path : string;
LadoaLado, Ampliado : Boolean);
var
Reg : TRegistry;
begin
{ cria chaves no registro do Windows}
Reg := TRegistry.Create;
with Reg do begin
RootKey := HKEY_CURRENT_USER;
OpenKey(´Control Panel\Desktop´,False);
WriteString(´Wallpaper´, Path);
if LadoaLado then
WriteString(´TileWallpaper´,´1´)
else
WriteString(´TileWallpaper´,´0´);
if Ampliado then
WriteString(´WallpaperStyle´,´2´)
else
WriteString(´WallpaperStyle´,´0´);
CloseKey;
Free;
end;
{indica mudança do papel de parede}
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil,
SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
UpdatePp(´c:\windows\bolhas.bmp´,True,False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
UpdatePp(´´,True,False);
end;

end.

Amigo a rotina que vc colocou, põe uma imagem .BMP mas o que eu quero me parece é um pouco mais complexo. Eu quero colocar uma imagem .JPG, tipo quando agente tá na net e vê uma imagem qualquer e clica com o botão direito e coloca aquela imagem como papel de parede e é isso que eu quero. mas valeu mesmo assim.

Caro amigo,
O Próprio windows já faz isso pra vc. Tem uma opção pra vc fazer isso!
Para inserir uma imagem JPG, é só mudar a extensão!!

Atenciosamente,

Daniel Araújo
ICQ:111769805
www.cdinformatica.hpg.com.br

:twisted: