/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Program til at ændre skærmbilledet
Fra : // Overby


Dato : 25-09-01 12:07

Jeg skal lave et program der kan ændre skærmbilledet i Windows. Jeg har
derfor flg. spørgsmål. Hvilke kommandoer skl jeg bruge til at

1. ændre baggrundsbilledet i windows
2. kan jeg få programmet til at 'køre i baggrunden' altså sådan at det bare
starter op skifter baggrundsbilledet og derefter afslutter uden brugeren
egentlig lægger mærke til det.

På forhånd tak
Daniel



 
 
Thomas Riedel (26-09-2001)
Kommentar
Fra : Thomas Riedel


Dato : 26-09-01 08:04

Hej Overby

Vedlagt source jeg har fundet et eller andet sted på nettet.



program wallpapr;

uses
Registry, WinProcs;

procedure SetWallpaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
//
// change registry
//
// 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;

//
// let everyone know that we changed
// a system parameter
//
SystemParametersInfo(
SPI_SETDESKWALLPAPER,
0,
Nil,
SPIF_SENDWININICHANGE );
end;

begin
//
// set wallpaper to centered winnt.bmp
//
SetWallpaper(
'c:\winnt\winnt.bmp',
False );
end.

--
Thomas Riedel, LogiHouse
" // Overby" <danieloverby@hotmail.com> wrote in message
news:9opof4$cfj$1@sunsite.dk...
> Jeg skal lave et program der kan ændre skærmbilledet i Windows. Jeg har
> derfor flg. spørgsmål. Hvilke kommandoer skl jeg bruge til at
>
> 1. ændre baggrundsbilledet i windows
> 2. kan jeg få programmet til at 'køre i baggrunden' altså sådan at det
bare
> starter op skifter baggrundsbilledet og derefter afslutter uden brugeren
> egentlig lægger mærke til det.
>
> På forhånd tak
> Daniel
>
>



Gunnar Martensen (26-09-2001)
Kommentar
Fra : Gunnar Martensen


Dato : 26-09-01 08:29

Kære Thomas og Overby.

Den kode Thomas anfører er OK, men dækker ikke
såfremt man anvender Active Desktop. Så skal man
også anvende på interfacet IActiveDesktop.

Gunnar Martensen


"Thomas Riedel" <thr@image.danmark> skrev i en meddelelse
news:I4fs7.6161$t8.456444@news010.worldonline.dk...
> Hej Overby
>
> Vedlagt source jeg har fundet et eller andet sted på nettet.
>
>
>
> program wallpapr;
>
> uses
> Registry, WinProcs;
>
> procedure SetWallpaper(
> sWallpaperBMPPath : String;
> bTile : boolean );
> var
> reg : TRegIniFile;
> begin
> //
> // change registry
> //
> // 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;
>
> //
> // let everyone know that we changed
> // a system parameter
> //
> SystemParametersInfo(
> SPI_SETDESKWALLPAPER,
> 0,
> Nil,
> SPIF_SENDWININICHANGE );
> end;
>
> begin
> //
> // set wallpaper to centered winnt.bmp
> //
> SetWallpaper(
> 'c:\winnt\winnt.bmp',
> False );
> end.
>
> --
> Thomas Riedel, LogiHouse
> " // Overby" <danieloverby@hotmail.com> wrote in message
> news:9opof4$cfj$1@sunsite.dk...
> > Jeg skal lave et program der kan ændre skærmbilledet i Windows. Jeg har
> > derfor flg. spørgsmål. Hvilke kommandoer skl jeg bruge til at
> >
> > 1. ændre baggrundsbilledet i windows
> > 2. kan jeg få programmet til at 'køre i baggrunden' altså sådan at det
> bare
> > starter op skifter baggrundsbilledet og derefter afslutter uden brugeren
> > egentlig lægger mærke til det.
> >
> > På forhånd tak
> > Daniel
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste