Discussion :

[blondelle]

Salut rakoto15:
LegalNoticeCaption est le titre que tu va donner a ta boite de dialogue.
Le code tel qu'il est ecrit fonctionne parfaitement sous Xp Pro pack1

[blondelle]

Je vais reposter mon code differamment car la chaine du registre se transforme en lien Hypertext.
le code:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <Registry.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
// ce programme fonctionne sur XP pro Pack1, a verifier que ces clefs existent bien au meme
// emplacement sur un autre systeme d'exploitation, vous modifiez la base
// de registre a vos risques et perils
{
// on lit la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on lit la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
Edit1->Text = registre->ReadString("LegalNoticeCaption");
}
}
// on lit la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
Memo1->Text = registre->ReadString("LegalNoticeText");
}
}
delete registre;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// on efface la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on efface la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
registre->WriteString("LegalNoticeCaption", "");
}
}
// on efface la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
registre->WriteString("LegalNoticeText", "");
}
}
delete registre;
// on efface le TEdit et le TMemo
Edit1->Text = "";
Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// on ecrit la valeur des clefs
TRegistry *registre = new TRegistry();
registre->RootKey = HKEY_LOCAL_MACHINE;
registre->OpenKey("\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", true);
// on ecrit la valeur de la premiere clef
if (registre->KeyExists("LegalNoticeCaption"));
{
if (registre->ValueExists("LegalNoticeCaption"));
{
registre->WriteString("LegalNoticeCaption", Edit1->Text);
}
}
// on ecrit la valeur de la deuxieme clef
if (registre->KeyExists("LegalNoticeText"));
{
if (registre->ValueExists("LegalNoticeText"));
{
registre->WriteString("LegalNoticeText", Memo1->Text);
}
}
delete registre;
// on efface le TEdit et le TMemo
Edit1->Text = "";
Memo1->Text = "";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
// on quitte le programme
Form1->Close();
Application->Terminate();
}
//---------------------------------------------------------------------------

Cette fois ci c'est mieux

[randriano]

Salut, donc ces valeurs LegalNoticeText et LegalNoticeCaption ne sont qu'une sorte de MessageBox() très intéressants. C'est la 1ère fois que je connais leurs rôles.

Progresse blondelle et dis nous comment y insérer des bitmaps.

[blondelle]

Salut rakoto15:
Je ne suis pas sur que l'on puisse inserrer un bitmaps, l'intitule de la clef "LegalNoticeText" semble confirmer mes doutes, je n'y avais d'ailleurs pas pense, de plus si cela est possible je ne vois pas comment faire.
L'interet de cette boite est de laisser un message a l'utilisateur qui ouvrira l'ordinateur il est oblige de valider par OK pour continuer la mise en route de Windows, donc cense avoir lu le message

[blondelle]

Il pourrait etre interressant de verifier que les clefs existent au meme emplacement sur Windows 95, 98, NT, 2000.