Discussion :

[blondelle]

Il y a quelques temps j'ai participe a une discution a ce sujet qui consistait a ecrire sur le papier peint du bureau, ici je propose une solution trouve par hasard qui affiche une boite de dialogue juste avant l'ecran de bienvenue.

ouvrir regedit
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon
rechercher deux clef
1 - LegalNoticeCaption, y inscrire le titre de la boite de dialogue, Exemple "Titre De La Boite"
2 - LegalNoticeText, y inscrire le texte qui sera affiche dans la boite de dialogue, Exemple "Texte qui sera affiche dans la boite de dialogue"

Il n'est pas necessaire de mettre le texte entre les " "

[blondelle]

J'ai essaye de lire la cle de la base de registre par programme, mais j'obtient toujours une valeur NULL, je me suis inspire de la FAQ, mais j'ai du louper quelque chose et je ne trouve pas
le code:

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
 
//---------------------------------------------------------------------------
#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)
{
TRegistry *registre = new TRegistry();
        registre->RootKey = HKEY_LOCAL_MACHINE;
    registre->OpenKey("<a href="file://\\SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\LegalNoticeCaption" target="_blank">\\SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\LegalNoticeCaption</a>", true);
    if (registre->KeyExists("LegalNoticeCaption"));
    {
String S = registre->ReadString("LegalNoticeCaption");
ListBox1->Items->Add(S);
//    }
    if (registre->ValueExists("LegalNoticeCaption"));
    {
AnsiString S = registre->ReadString("LegalNoticeCaption");
ListBox1->Items->Add(S);
    }
}
registre->CloseKey();
delete registre;
}

[josse95]

Remplacer:

Code :

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

    registre->OpenKey("<a href="file://\\SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\LegalNoticeCaption" target="_blank">\\SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\LegalNoticeCaption</a>", true);

par:

Code :

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

registre->OpenKey("SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon",true);

[pottiez]

Oui la base de registre ne prend pas encore les lien hypertexte il me semble

[blondelle]

Merci de ta reponse josse95
Je ne l'avais pas vu, a la copie la chaine a ete modifiee, mais c'est le bon chemin comme tu l'indique qui est dans le programme.
Tu est moqueur Pottiez

[pottiez]

Oui c'est de famille

[josse95]

Effectivement, il y a le problème des liens hypertexte, mais surtout, le fait que tu fais figurer LegalNoticeCaption dans le OpenKey, ce qui est la cause de l'erreur (regarde bien ma réponse !)