---

Ja dav.

Jeg har lavet et program der skifter baggrunds billede når XP startet op!
Det virker bare ikke ???
Billede bliver gemt, men XP vil ikke skifte!
Jeg tror at XP skal genopfriske Wallpaper.

Fejlen ligger måske her!
Hvad er der galt ???

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Windows\BagB.jpg'),SPI
F_SENDWININICHANGE);


Program:
*******************************************************************
{ Public declarations }
end;

var
Form1: TForm1;
RNum: Integer;
fileSource, fileDest: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

Randomize;

repeat
RNum := Random(28);
until (RNum <> 0);

fileSource:= 'D:\Tools\WinBaggrund\' + IntToStr(RNum) + '.jpg';
fileDest:= 'C:\Windows\BagB.jpg';
DeleteFile('C:\Windows\BagB.jpg');
CopyFile(PChar(fileSource), PChar(fileDest), false);

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Windows\BagB.jpg'),SPI
F_SENDWININICHANGE);
Application.Terminate;

end;

end.

*******************************************************************
--
M.v.h.
Hans Nikolajsen
E-mail: hn1@stofanet.dk
Homepage: http://home1.stofanet.dk/jadav/

---

Følgende konsol program virker på W2000:

program Project1;
{$APPTYPE CONSOLE}
uses
windows;
var
fileSource, fileDest: string;
begin
fileSource:= 'D:\bike-man.bmp';
fileDest:= 'C:\Winnt\BagB.bmp';
DeleteFile('C:\Winnt\BagB.bmp');
CopyFile(PChar(fileSource), PChar(fileDest), false);

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Winnt\BagB.bmp'),S
PIF_SENDWININICHANGE);
end.

Jeg bruger bmp og c:\winnt. Ellers er det stort set det samme som dit.

Hilsen
Uffe


"Hans Nikolajsen" <hn1@stofanet.dk> wrote in message
news:3c503b32$1$250$ba624c82@nntp03.dk.telia.net...
> Ja dav.
>
> Jeg har lavet et program der skifter baggrunds billede når XP startet
op!
> Det virker bare ikke ???
> Billede bliver gemt, men XP vil ikke skifte!
> Jeg tror at XP skal genopfriske Wallpaper.
>
> Fejlen ligger måske her!
> Hvad er der galt ???
>
>
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Windows\BagB.jpg')
,SPI
> F_SENDWININICHANGE);
>
>
> Program:
> *******************************************************************
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
> RNum: Integer;
> fileSource, fileDest: string;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>
> Randomize;
>
> repeat
> RNum := Random(28);
> until (RNum <> 0);
>
> fileSource:= 'D:\Tools\WinBaggrund\' + IntToStr(RNum) + '.jpg';
> fileDest:= 'C:\Windows\BagB.jpg';
> DeleteFile('C:\Windows\BagB.jpg');
> CopyFile(PChar(fileSource), PChar(fileDest), false);
>
>
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Windows\BagB.jpg')
,SPI
> F_SENDWININICHANGE);
> Application.Terminate;
>
> end;
>
> end.
>
> *******************************************************************
> --
> M.v.h.
> Hans Nikolajsen
> E-mail: hn1@stofanet.dk
> Homepage: http://home1.stofanet.dk/jadav/
>
>
>
>

---

Ja dav.

Nu virker det!
Af en eller anden grund virker det ikke med JPG!
Nu har jeg ændret billerne til BMP, og selvfølgelig skrevet programmet om
til BMP.

Tak for hjælpen. (c:


> SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Winnt\BagB.bmp'),S
> PIF_SENDWININICHANGE);
>
>
> Jeg bruger bmp og c:\winnt. Ellers er det stort set det samme som dit.
>
> Hilsen
> Uffe

--
M.v.h.
Hans Nikolajsen
E-mail: hn1@stofanet.dk
Homepage: http://home1.stofanet.dk/jadav/

---

Hans Nikolajsen wrote:
> Af en eller anden grund virker det ikke med JPG!

Det har formentligt noget at gøre med at JPG billeder, som bliver brugt
til baggrundsbilleder, kræver Active Desktop.

--
Med venlig hilsen,
René Jensen

Once a upon a time a wise man said to me:
"I consider Windows like I consider bad weather ... I accept it and hope
for something better"