Discussion :

[Mangacker]

bonsoir à toutes et à tous

dans mon programme j'aurais besoins de modifier le fond d'écran
apres quelques recherches je suis tombé la dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 SystemParametersInfo(SPI_SETDESKWALLPAPER,
                     0,"C:\\Dossier\\Dessin.bmp",NULL );

le problème avec ce code c'est que je ne peux pas utiliser de fichier .jpg ce qui est plustot embêtant

est-ce que quelqun connait le moyen de contourner cela

sinon deuxième problème c'est que si l'image choisie ne remplis pas l'écran, elle est centrée et le fond est bleu...

y-a-t-il un moyen de modifier ça??

merci

[blondelle]

Salut Mangacker
Il y a ce lien sur la FAQ pour recuperer et changer le papier peint du bureau

http://cpp.developpez.com/faq/bcb/?p...ierpeintbureau

Comme ils passent par un TImage, si je ne trompe pas dans l'aide en ligne BCB il y a un exemple qui charge un JPG dans un TImage, c'est peut etre une solution

[Mangacker]

l'exemple proposé dans le lien que tu m'as donné il y a le meme problème et j'ai un message d'erreur qui apparait

"Image Bitmap incorrecte"...

[blondelle]

C'est normal ton erreur dans la FAQ on utilise un Bitmap, toi tu veu utiliser un JPG comme cite dans ma reponse precedente

Comme ils passent par un TImage, si je ne trompe pas dans l'aide en ligne BCB il y a un exemple qui charge un JPG dans un TImage, c'est peut etre une solution

il faut transformer le JPG en Bitmap, je pense que ceci marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //"jpeg.hpp" doit être inclus dans le fichier source
  TJPEGImage *jp = new TJPEGImage();
        jp->LoadFromFile("C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\AG00004_1.jpg");
Image1->Picture->Bitmap->Assign(jp);
//        jp->Assign(Image1->Picture->Bitmap);
//    jp->SaveToFile("c:\\oneeye.jpg");
    delete jp;
}

[Mangacker]

merci j'essaye comme ça et je vous redis demain je pense (ou ce soir si j'arrive)

bonne soirée

[Mangacker]

ça marche merci bonne soirée

[Nik_Meilleur]

voici un code source qui marche bien pour charger un image jpg comme fond decran, on peu choisir entre title strech ou center :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "jpeg.hpp"
#include <registry.hpp>
#include "USpi.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
void __fastcall DefinirFondDecran ();
TForm1 *Form1;
String Addr="Winlog.jpg";
TRegistry *registre =     new TRegistry();
AnsiString __fastcall GetUser();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CentrerClick(TObject *Sender)
{
      registre->WriteString("TileWallpaper", 0);
    registre->WriteString("WallpaperStyle", 1); // 1=center 2=strech
      DefinirFondDecran ()  ;
 }
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TitleClick(TObject *Sender)
{
       registre->WriteString("TileWallpaper", 1);
       DefinirFondDecran ()  ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::EtirerClick(TObject *Sender)
{
       registre->WriteString("TileWallpaper", 0);
       registre->WriteString("WallpaperStyle", 2);
       DefinirFondDecran ()  ;
}
//---------------------------------------------------------------------------
void __fastcall DefinirFondDecran ()
{
 
           //etablir comme fond decran
SystemParametersInfo( SPI_SETDESKWALLPAPER,Addr.Length(),Addr.c_str(),WM_SETTINGCHANGE);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   //afficher limage au demarage
  TJPEGImage *jp = new TJPEGImage();
    jp->LoadFromFile(Addr);
    Image1->Picture->Bitmap->Assign(jp);
 
    //place le pointer sur le regristre pour changer laspect du fond decran
      registre->RootKey = HKEY_CURRENT_USER ;
     registre->OpenKey("\\Control Panel\\Desktop", true);
 
         //converti jpg to bmp et la sauvegader
 using Graphics::TBitmap;
Graphics::TBitmap* bmp;
TJPEGImage *jpg = new TJPEGImage();
bmp = new Graphics::TBitmap ();
jpg->LoadFromFile (Addr);
bmp->Assign(jpg);
bmp->SaveToFile (Addr.SetLength(Addr.Length() -3)+="bmp");
delete bmp;
delete jpg;
 
      //copier le bmtp dans windows
String AddrWin="C:\\Documents and Settings\\"+GetUser()+"\\Local Settings\\Application Data\\Microsoft\\";
   DeleteFile(AddrWin+"Wallpaper1.bmp");
 CopyFile(Addr.c_str(),(AddrWin+"Wallpaper1.bmp").c_str(), true);
}
//---------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
       registre->CloseKey();   //fermer le regristre
     delete registre;
     DeleteFile(Addr.SetLength(Addr.Length() -3)+="bmp"); // effacer limage bmp quon na cree au depart de laplication
}
//---------------------------------------------------------------------------
AnsiString __fastcall GetUser()
{
    AnsiString user("");
    DWORD t_user(256);
    char *name_user=new char[t_user];
    if( GetUserName(name_user, &t_user) )
    {
        user=AnsiString(name_user);
    }
    delete[] name_user;
    return user;
}

il faut metre un fichier nommer Winlog.jpg dans votre repertoire
NE VA PAS FONCTIONER SUR WIN XP FR, IL FAUT CHANGER LES LADRESS DANS void __fastcall TForm1::FormCreate(TObject *Sender)