/ 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
baggrunds billede i XP
Fra : Hans Nikolajsen


Dato : 24-01-02 17:49

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/





 
 
Uffe Kousgaard (24-01-2002)
Kommentar
Fra : Uffe Kousgaard


Dato : 24-01-02 21:35

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/
>
>
>
>


Hans Nikolajsen (25-01-2002)
Kommentar
Fra : Hans Nikolajsen


Dato : 25-01-02 17:05

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/



René Jensen (25-01-2002)
Kommentar
Fra : René Jensen


Dato : 25-01-02 19:42

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"

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste