Re: How to change the WallPaper ??

Article View: comp.lang.pascal.delphi.misc

Article #404

Back to comp.lang.pascal.delphi.misc Previous Next

#404

From: Dirk Claessens
Date: Sun, 23 May 1999 00:00

25 lines
1462 bytes

Chow Hoi Ka, Eric heeft geschreven in bericht
<374834DD.6445E556@sftw.umac.mo>...
:Hello,
:
:1) How to get the current WallPaper in the DeskTop ?
:2) How to change the WallPaper ????
:

Try :


if not SystemParametersInfo(SPI_SETDESKWALLPAPER,
                            0,
                            PChar('MyWallPaper.bmp'),
                            SPIF_UPDATEINIFILE) then
ShowMessage( 'Oops : ' + SysErrorMessage(GetLastError));

Also see SPI_GETDESKWALLPAPER in WIN32-Help.

Regards,
Dirk Claessens
______________________________________________
E-mail will bounce back, unless directed to:
dirk DOT claessens AT village DOT uunet DOT be
______________________________________________

Technical Details

Message-ID: <7ibn6u$40h$1@xenon.inbe.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <374834DD.6445E556@sftw.umac.mo>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd817,be2715f1a7fd097b
X-Google-Attributes: gidfd817,public
X-Google-Thread: 10baee,be2715f1a7fd097b
X-Google-Attributes: gid10baee,public
X-Google-Thread: 1043cf,be2715f1a7fd097b
X-Google-Attributes: gid1043cf,public
From: "Dirk Claessens" <will.bounce@back.com>
Subject: Re: How to change the WallPaper ??
Date: 1999/05/23
Message-ID: <7ibn6u$40h$1@xenon.inbe.net>
X-Deja-AN: 481514458
References: <374834DD.6445E556@sftw.umac.mo>
Organization: UUNET Benelux (post does not reflect views of UUNET Benelux)
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Newsgroups: comp.lang.pascal.delphi.misc,alt.comp.lang.borland-delphi,borland.public.delphi.objectpascal

Reply to Parent Message