2 - Alterar o papel de parede 1
program wallpapr;
uses Registry, WinProcs;
procedure SetWallpaper(sWallpaperBMPPath : String; bTile :
boolean );
var
reg : TRegIniFile;
begin
// Mudando o Registro HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do begin
WriteString( '', 'Wallpaper',sWallpaperBMPPath );
if( bTile )then begin
WriteString( '', 'TileWallpaper', '1' );
end else begin
WriteString( '', 'TileWallpaper', '0' );
end;
end;
reg.Free;
// Mostrar que o parametro do sistema foi alterado
SystemParametersInfo( SPI_SETDESKWALLPAPER,0, Nil,
SPIF_SENDWININICHANGE );
end;
begin
SetWallpaper( 'c:\winnt\winnt.bmp', False );
end.
3 - Alterar papel de parede 2
procedure ChangeWallpaper(bitmap: string);
var
pBitmap : pchar;
begin
bitmap:=bitmap+#0; {bitmap contém um arquivo *.bmp}
pBitmap:[EMAIL PROTECTED];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap,
SPIF_UPDATEINIFILE);
end;
4 - Mudar o papel de parede 3
Para testar o exemplo abaixo inclua no seu form um componente
Button e no evento OnClick o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
PChar('C:\windows\Arenito.bmp'),SPIF_SENDWININICHANGE);
end;
Em 14/11/07, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
>
> Terceira Página que encontrei no Google.
>
> Não sei se o link funciona, pois tenho acesso restrito
>
> Then to change the desktop wallpaper, see "Setting the wallpaper (tiled,
> centered, stretched, or positioned)." on page 3 of my Delphi Code Tips at
> http://members.xoom.com/jescott/index.html.
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de
> edersonecris
> Enviada em: quarta-feira, 14 de novembro de 2007 17:21
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: [delphi-br] Função para mudar papel de parede
>
> Boa tarde!!! Pessoal quero mudar o papel de parede do windows sempre que
> iniciar o computador. Alguém sabe como fazer isso? Alguma função ou onde
> eu encontro um programa para estudar, qualquer ajuda mesmo.
> vlw
>
> --
> Éderson Cassiano Bologna
> [EMAIL PROTECTED] <edersoncassiano%40terra.com.br> <mailto:
> edersoncassiano%40terra.com.br>
> sKYPE: edersoncassiano
> MSN: [EMAIL PROTECTED] <edersoncassiano%40hotmail.com> <mailto:
> edersoncassiano%40hotmail.com>
> www.microtechshop.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
