Desktop-Hintergrundbild ändern ?

[Alfi]

Ich weiß das es in der Registry steht,aber ich finds nicht,kann mir jemand helfen ?

[MR321]

Aus den Programmier-Tips:

...das Desktop Hintergrundbild wechseln ?  

Autor: Simon Grossenbacher <webmaster@swissdelphicenter.ch>  
Homepage: [a href="http://www.swissdelphicenter.ch" target="_blank"]http://www.swissdelphicenter.ch[/a]

Kategorie: System


1.Way:  

uses  
  Registry, WinProcs;  

procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean);  
var  
  reg : TRegIniFile;  
begin  
  reg := TRegIniFile.Create('Control PanelDesktop');  
  with reg do  
  begin  
    WriteString('', 'Wallpaper', sWallpaperBMPPath);  
    if(bTile)then  
    begin  
      WriteString('', 'TileWallpaper', '1');  
    end else  
    begin  
      WriteString('', 'TileWallpaper', '0');  
    end;  
  end;  
  reg.Free;  
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE);  
end;  

2. Way:  

procedure TForm1.Button1Click(Sender: TObject);  
type a=array [0..255] of char;  
var filename: ^a;  
begin  
 new(filename);  
 strpcopy(filename^,'c:[WinDIR]wall.bmp');  
 dispose(filename);  
 if SystemParametersInfo(SPI_SETDESKWALLPAPER,0,filename,SPIF_SENDCHANGE ) then showmessage('Succesful')  
 else showmessage('something was wrong!');  
end;  



  

printed from
www.swissdelphicenter.ch
developers knowledge base

[Alfi]

Danke, aber kann mir jemand sagen wo ich den Pfad inkl Dateiname des bildes angebe ?

Code:

uses

Registry, WinProcs;



procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean);

var

reg : TRegIniFile;

begin

reg := TRegIniFile.Create('Control PanelDesktop');

with reg do

begin

WriteString('', 'Wallpaper', sWallpaperBMPPath);

if(bTile)then

begin

WriteString('', 'TileWallpaper', '1');

end else

begin

WriteString('', 'TileWallpaper', '0');

end;

end;

reg.Free;

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE);

end;

Ich sehs jetzt irgendwie nicht so direkt... danke, Alfi

[MR321]

Du musst die Prozedur so wie sie ist in dein Programm aufnehem.
Du kannst sie dann aufrufen mit SetWallpaper(sWallpaperBMPPath, bTile);
Wobei sWallpaperBMPPath die Datei + Pfad darstellt.

[Alfi]

Super ! Vielen Dank !!!