- program The_wall;
- {$APPTYPE CONSOLE}
- uses
- sysutils,windows,registry;
-
- var
- chemin,oldbmp : string;
- SRF : TSearchRec;
- nbfic,i : integer;
- begin
- nbfic:=0;
- // Détection du parametre sinon fermeture;
- if paramcount>0 then
- begin
- with tregistry.create do
- try
- rootkey:=HKEY_CURRENT_USER;
- if openkey('\Control Panel\Desktop',false) then
- oldbmp:=readstring('Wallpaper');
- finally
- free;
- end;
- chemin:=paramstr(1);
- writeln('recherche des fichiers');
- // Recherche des fichiers commencant par un numéro
- if FindFirst(chemin+'\*.bmp',faAnyFile,SRF)=0 then
- begin
- if strtointdef(copy(SRF.name,0,1),-1)<>-1 then
- Inc(nbfic);
- while findnext(SRF)=0 do
- begin
- if strtointdef(copy(SRF.name,0,1),-1)<>-1 then
- Inc(nbfic);
- end;
- // Fonction aléatoire sur ces fichiers
- randomize;
- i:=random(nbfic);
- // Evite de retouver le même fond d'écran
- while i=strtoint(copy(oldbmp,length(chemin)+2,1)) do
- i:=random(nbfic);
- //Affectation du nouveau fond d'écran
- writeln('Affectation');
- chemin:=chemin+'\'+inttostr(i)+'.bmp';
- SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(chemin),SPIF_UPDATEINIFILE);
- end;
- end;
- end.
program The_wall;
{$APPTYPE CONSOLE}
uses
sysutils,windows,registry;
var
chemin,oldbmp : string;
SRF : TSearchRec;
nbfic,i : integer;
begin
nbfic:=0;
// Détection du parametre sinon fermeture;
if paramcount>0 then
begin
with tregistry.create do
try
rootkey:=HKEY_CURRENT_USER;
if openkey('\Control Panel\Desktop',false) then
oldbmp:=readstring('Wallpaper');
finally
free;
end;
chemin:=paramstr(1);
writeln('recherche des fichiers');
// Recherche des fichiers commencant par un numéro
if FindFirst(chemin+'\*.bmp',faAnyFile,SRF)=0 then
begin
if strtointdef(copy(SRF.name,0,1),-1)<>-1 then
Inc(nbfic);
while findnext(SRF)=0 do
begin
if strtointdef(copy(SRF.name,0,1),-1)<>-1 then
Inc(nbfic);
end;
// Fonction aléatoire sur ces fichiers
randomize;
i:=random(nbfic);
// Evite de retouver le même fond d'écran
while i=strtoint(copy(oldbmp,length(chemin)+2,1)) do
i:=random(nbfic);
//Affectation du nouveau fond d'écran
writeln('Affectation');
chemin:=chemin+'\'+inttostr(i)+'.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(chemin),SPIF_UPDATEINIFILE);
end;
end;
end.