Buscar por:

Alterando o papel de parede

Código

{Crie uma nova aplicação e adicione ao Form um componente TLabel, TEdit e um TButton. Limpe a propriedade Text do Edit1 e altere a propriedade Caption do Button1 para: "Clique para trocar o papel de parede" e a propriedade Caption do Label1 para: "Digite o caminho completo + o nome da imagem + a extensão".

Declare a procedure PapelDeParede na área de declarações Public da Unit conforme abaixo:}

public

  { Public declarations }

  procedure PapelDeParede(bitmap: string);

{Agora copie a procedure na área Implementation:}

procedure TForm1.PapelDeParede(bitmap: string);

var

  pBitmap : pchar;

begin

  bitmap:=bitmap+#0;

  pBitmap:=@bitmap[1];

  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);

end;

{Faça a chamada à procedure PapelDeParede no evento OnClick do Button1 (veja abaixo):}

procedure TForm1.Button1Click(Sender: TObject);

begin

  PapelDeParede(Edit1.Text);

end;

{Agora é só executar o aplicativo, mas não se esqueça que só podem ser usadas imagens com extensão BMP. }