Discussion :

[sic_88]

Bonjour à tous

J'ai une question...

Je souhaite executer un fichier .reg (à la racine de C) depuis mon programme afin d'ajouter les infos OEM dans Windows 7.
J'ai essayé avec cette méthode

Code :

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

1
2
 
ShellExecute(Handle,'Open','C:\tmp.reg',nil,Nil,SW_SHOWDEFAULT);

Le contenu de mon fichier .reg est le suivant (info OEM) :

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
 
REGEDIT4
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"Logo"="c:\windows\system32\OEMLOGOSEVEN.bmp"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"Manufacturer"="entreprise"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"Model"="modele pc"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"SupportHours"="9h-18h"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"SupportPhone"="111 222 33 44"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"SupportURL"="www.exemple.com"
 
REG ADD [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"logo"="c:\\windows\\system32\\OEMLOGOSEVEN.bmp"

En dehors du programme, si je lance le .reg tout marche parfaitement bien, les modifications sont appliquées.

Cependant, losrque que je l'éxécute via le programme (avec la méthode citée ci-dessu), il m'est indiqué que tout c'est bien passé, mais concrétement les modifications ne se font pas.

Le problème persiste même si je lance le programme en mode administrateur ou compatibilité.

Auriez-vous des idées ?

D'avance merci pour votre aide.

[guillemouze]

peut etre avec RegLoadKey, mais j'ai jamais essayé, c'est juste une piste ...

[ouiouioui]

la syntaxe de mémoire:

Code :

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

ShellExecute(Handle,'Open','reg.exe', 'IMPORT "test.reg"',Nil,SW_SHOWDEFAULT);

[dark1]

bonsoir !
tu peux faire aussi le suivant:

Code :

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

winexec('cmd /c regedit /s test.reg',SW_hide);

a bientôt

[Paul TOTH]

il manque un "uses Registry;"

[dark1]

il manque un "uses Registry;"

pourquoi le 'uses Registry'?
on cherche pas a accéder a la base des registres mais seulement a lancer le fichier *.reg !

[Paul TOTH]

pourquoi le 'uses Registry'?
on cherche pas a accéder a la base des registres mais seulement a lancer le fichier *.reg !

ben justement...lancer un .REG ça me fait penser à faire ShellExecute de "DIR > fichiers.txt" pour obtenir la liste des fichiers d'un répertoire

je préfère de loin utiliser le registre sous Delphi qui de lancer regedit, tu as vraie gestion d'erreur au moins

[sic_88]

Comme il s'agit d'ajouter des valeurs dans

Code :

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

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]

Je vais essayer de voir comment je peut me débrouiller avec la FAQ, notamment cette partie : http://delphi.developpez.com/faq/?pa...#brdcleefcreer
J'avais déjà essayé une fois, j'avais procédé de la manière suivante :

Dans Uses ajouter :

Code :

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

Registry

Ensuite un exemple, pour ajouter le Manufacturer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.BtnGoClick(Sender: TObject);
Var
Registre : TRegistry;
 
begin
Registre := TRegistry.Create;
 
Registre.RootKey := HKEY_LOCAL_MACHINE;
Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
Registre.WriteString('Manufacturer','entreprise');
Registre.CloseKey;
End;

Mais rien n'était modifier dans le registre...

Cette manière de faire est-elle correcte pour Windows 7 ?

P.S. : j'utilise Borland Delphi 7 Entreprise.

[Andnotor]

...Mais rien n'était modifier dans le registre...

Ben si ! CanCreate de OpenKey est à TRUE. Si la clé n'existe pas, elle est créée. Il vaudrait mieux utiliser OpenKeyReadOnly pour être en lecture seul.

Ce code fonctionne toujours sous Win7, mais il faut avoir un niveau de privilèges suffisant pour que l'appel réussisse. Ce qui veut dire ajouter un manifest à ton exe.

[sic_88]

Le fait d'éxécuter en mode administrateur permet-il d'avoir le niveau de privilège requis pour ces opérations ?

Sinon, je ferait en sorte de créer un manifeste interne à mon exe.

Petite correction concernant mon dernier post, la clé pour les oem informations n'est pas

Code :

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

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]

Mais

Code :

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

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]

[Andnotor]

Non, il faut un manifest.

Mais reécrire cette clé à chaque démarrage n'est pas une bonne solution puisqu'il y aura systématiquement la fenêtre de confirmation de l'UAC à chaque lancement du programme.

[sic_88]

En effet, j'ai fait l'essai, aucunes erreurs mais aucunes valeurs ajoutée au registre sous Seven. (Sous XP sa marche très bien). Je verrai donc pour créer un manifest interne.
Petite question supplémentaire (je ne sais pas ce que je deviendrai si vous n'étiez pas là ).

J'ai l'image du logo affichée dans la fenêtre de mon exe. Comment copier cette image dans C:\Windows\System32 ?
En gros copier l'image oemlogo.bmp (qui est insérée comme composant dans ma fiche, et qui n'est pas un fichier externe) dans C:\Windows\System32.
Une sorte d'équivalence par rapport à SaveToFile pour le contenu d'un Memo par exemple.

J'ai trouvé comment copier un répertoir

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
 
function CopyFolder(FromFld, ToFld: string): boolean; 
var fos: TSHFileopStruct; 
begin 
// il faut supprimer les antislashs de fin sinon vous aurez droit à un message d'erreur 
  FromFld := ExcludeTrailingPathDelimiter(Trim(FromFld)); 
  ToFld := ExcludeTrailingPathDelimiter(Trim(ToFld)); 
 
  FillChar(fos, SizeOf(fos),0); 
  with fos do 
  begin 
    wFunc := FO_COPY; 
    pFrom := PChar(FromFld+#0); 
    pTo   := PChar(ToFld+#0); 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR; 
  end; 
  Result := ShFileOperation(fos)=0; 
end;

Mais je pense que cette fonction n'est pas adaptée à mon cas.

[sic_88]

J'ai trouvé

Code :

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

ImgLogoVistaSeven.Picture.SaveToFile('C:\Windows\System32\oemlogo.bmp');

[sic_88]

Bon j'ai une derière difficulté à surmonter...
Mon application fonctionne sur tout les windows de 95 à xp, mais pas sur Vista et Seven.
Comme indiqué par Andnotor, il est obligatoire d'ajouter un manifest pour pouvoir copier le logo dans System32 et écrire les valeurs dans la clé

Code :

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

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]

J'ai donc suivit la démarche décrite à cet endroit http://pascalfonteneau.developpez.co...phi/vista/uac/ afin de créer un manifest interne à mon application.

Le fichier .res est créé sans soucis, j'ajoute la directive de compilation

Code :

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

{$R 'MonManifest.RES' 'MonManifest.rc' }

Dans mon fichier.dpr, je compile mon application.

Je lance donc mon application sous Seven (l'icône affiche à présent le petit bouclier) la demande de confirmation pour le passage en mode administrateur est faite de manière automatique, je lance les opérations, tout se déroule normalement. Mais aucune modification n'est appliquée.

Le logo n'a pas été copié dans System32, et les valeurs ne sont pas inscrites au registre.

Voici le code complet du programme (soyez indulgents je débute en delphi )

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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
 
 
unit Uoem;
 
interface
{$R 'MonManifest.RES' 'MonManifest.rc' }
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, Registry;
 
type
  TForm1 = class(TForm)
    GBOS: TGroupBox;
    GBActions: TGroupBox;
    CBOS: TComboBox;
    BtnGo: TButton;
    BtnReset: TButton;
    BtnQuitter: TButton;
    ImgXP: TImage;
    ImgVista: TImage;
    ImgSeven: TImage;
    ImgLogoVistaSeven: TImage;
    ImgLogoXP: TImage;
    GBIni: TGroupBox;
    MIni: TMemo;
    Img2000: TImage;
    Img9x: TImage;
    procedure CBOSSelect(Sender: TObject);
    procedure BtnGoClick(Sender: TObject);
    procedure BtnResetClick(Sender: TObject);
    procedure BtnQuitterClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  Manufacturer, Model, SupportHours, SupportPhone, SupportURL, SupportAddress, Logo : String;
  SupportAddressXPRue, SupportAddressXPPostal, Email                                : String;
 
implementation
 
{$R *.dfm}
 
{===============================================================================
Procedure CBOSSelect
===============================================================================}
procedure TForm1.CBOSSelect(Sender: TObject);
begin
Case CBOS.ItemIndex Of
0 : Begin//9X
    Img9x.Visible             := True;
    Img2000.Visible           := False;
    ImgXP.Visible             := False;
    ImgVista.Visible          := False;
    ImgSeven.Visible          := False;
    ImgLogoXP.Visible         := True;
    ImgLogoVistaSeven.Visible := False;
    MIni.Clear;
 
    Manufacturer        := InputBox('Fabricant', 'Saisie du fabricant', 'fabricant');
    Model               := InputBox('Modèle PC', 'Saisie du modèle de PC', 'PC-1');
    SupportHours        := InputBox('Heures d''ouverture', 'Saisie des heures d''ouverture', '9h-18h');
    SupportPhone        := InputBox('Téléphone support', 'Saisie du numéro de téléphone du support', '011 222 33 44');
    SupportURL          := InputBox('Site internet', 'Saisie de l''url du site internet', 'www.exemple.ch');
    Email               := InputBox('Adresse eMail', 'Saisie de l''adresse eMail', 'info@exmple.com');
    SupportAddressXPRue := InputBox('Adresse', 'Saisie de la rue', 'rue exemple 12');
    SupportAddressXPPostal := InputBox('Adresse', 'Saisie du code postal et de la ville', '3615 - exemple');
 
    MIni.Lines.Add('[General]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Manufacturer='+Manufacturer);
    MIni.Lines.Add('');
    MIni.Lines.Add('Model='+Model);
    MIni.Lines.Add('');
    MIni.Lines.Add('[Support Information]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Line1='+Manufacturer);
    MIni.Lines.Add('Line2='+SupportAddressXPRue);
    MIni.Lines.Add('Line3='+SupportAddressXPPostal);
    MIni.Lines.Add('Line4= ');
    MIni.Lines.Add('Line5='+SupportHours);
    MIni.Lines.Add('Line6='+SupportPhone);
    MIni.Lines.Add('Line7='+Email);
    MIni.Lines.Add('Line8='+SupportURL);
    End;
1 : Begin//2000
    Img9x.Visible             := False;
    Img2000.Visible           := True;
    ImgXP.Visible             := False;
    ImgVista.Visible          := False;
    ImgSeven.Visible          := False;
    ImgLogoXP.Visible         := True;
    ImgLogoVistaSeven.Visible := False;
    MIni.Clear;
 
       Manufacturer        := InputBox('Fabricant', 'Saisie du fabricant', 'fabricant');
    Model               := InputBox('Modèle PC', 'Saisie du modèle de PC', 'PC-1');
    SupportHours        := InputBox('Heures d''ouverture', 'Saisie des heures d''ouverture', '9h-18h');
    SupportPhone        := InputBox('Téléphone support', 'Saisie du numéro de téléphone du support', '011 222 33 44');
    SupportURL          := InputBox('Site internet', 'Saisie de l''url du site internet', 'www.exemple.ch');
    Email               := InputBox('Adresse eMail', 'Saisie de l''adresse eMail', 'info@exmple.com');
    SupportAddressXPRue := InputBox('Adresse', 'Saisie de la rue', 'rue exemple 12');
    SupportAddressXPPostal := InputBox('Adresse', 'Saisie du code postal et de la ville', '3615 - exemple');
 
    MIni.Lines.Add('[General]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Manufacturer='+Manufacturer);
    MIni.Lines.Add('');
    MIni.Lines.Add('Model='+Model);
    MIni.Lines.Add('');
    MIni.Lines.Add('[Support Information]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Line1='+Manufacturer);
    MIni.Lines.Add('Line2='+SupportAddressXPRue);
    MIni.Lines.Add('Line3='+SupportAddressXPPostal);
    MIni.Lines.Add('Line4= ');
    MIni.Lines.Add('Line5='+SupportHours);
    MIni.Lines.Add('Line6='+SupportPhone);
    MIni.Lines.Add('Line7='+Email);
    MIni.Lines.Add('Line8='+SupportURL);
    End;
2 : Begin//XP
    Img9x.Visible             := False;
    Img2000.Visible           := False;
    ImgXP.Visible             := True;
    ImgVista.Visible          := False;
    ImgSeven.Visible          := False;
    ImgLogoXP.Visible         := True;
    ImgLogoVistaSeven.Visible := False;
    MIni.Clear;
 
        Manufacturer        := InputBox('Fabricant', 'Saisie du fabricant', 'fabricant');
    Model               := InputBox('Modèle PC', 'Saisie du modèle de PC', 'PC-1');
    SupportHours        := InputBox('Heures d''ouverture', 'Saisie des heures d''ouverture', '9h-18h');
    SupportPhone        := InputBox('Téléphone support', 'Saisie du numéro de téléphone du support', '011 222 33 44');
    SupportURL          := InputBox('Site internet', 'Saisie de l''url du site internet', 'www.exemple.ch');
    Email               := InputBox('Adresse eMail', 'Saisie de l''adresse eMail', 'info@exmple.com');
    SupportAddressXPRue := InputBox('Adresse', 'Saisie de la rue', 'rue exemple 12');
    SupportAddressXPPostal := InputBox('Adresse', 'Saisie du code postal et de la ville', '3615 - exemple');
 
    MIni.Lines.Add('[General]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Manufacturer='+Manufacturer);
    MIni.Lines.Add('');
    MIni.Lines.Add('Model='+Model);
    MIni.Lines.Add('');
    MIni.Lines.Add('[Support Information]');
    MIni.Lines.Add('');
    MIni.Lines.Add('Line1='+Manufacturer);
    MIni.Lines.Add('Line2='+SupportAddressXPRue);
    MIni.Lines.Add('Line3='+SupportAddressXPPostal);
    MIni.Lines.Add('Line4= ');
    MIni.Lines.Add('Line5='+SupportHours);
    MIni.Lines.Add('Line6='+SupportPhone);
    MIni.Lines.Add('Line7='+Email);
    MIni.Lines.Add('Line8='+SupportURL);
    End;
3 : Begin//Vista
    Img9x.Visible             := False;
    Img2000.Visible           := False;
    ImgXP.Visible             := False;
    ImgVista.Visible          := True;
    ImgSeven.Visible          := False;
    ImgLogoVistaSeven.Visible := True;
    ImgLogoXP.Visible         := False;
    MIni.Clear;
    MIni.Lines.Add('Vista ne requiert pas de fichier ini.');
    MIni.Lines.Add('Les modifications sont réalisées par le biais de clés de registre.');
    MIni.Lines.Add('Vous pourrez saisir les informations OEM lors du clic sur Go !');
    End;
4 : Begin//Seven
    Img9x.Visible             := False;
    Img2000.Visible           := False;
    ImgXP.Visible             := False;
    ImgVista.Visible          := False;
    ImgSeven.Visible          := True;
    ImgLogoVistaSeven.Visible := True;
    ImgLogoXP.Visible         := False;
    MIni.Clear;
    MIni.Lines.Add('Seven ne requiert pas de fichier ini.');
    MIni.Lines.Add('Les modifications sont réalisées par le biais de clés de registre.');
    MIni.Lines.Add('Vous pourrez saisir les informations OEM lors du clic sur Go !');
    End;
End;
end;//fin procedure
 
{===============================================================================
Procedure BtnGoClick
===============================================================================}
procedure TForm1.BtnGoClick(Sender: TObject);
Var
Reg : TRegistry;
 
begin
Reg := Tregistry.Create;
 
Case CBOS.ItemIndex Of
-1 : ShowMessage ('OS non selectionné');
 
0 : Begin//9x
    MIni.Lines.SaveToFile('c:\windows\system\oeminfo.ini');
    ImgLogoXP.Picture.SaveToFile('C:\windows\system\oemlogo.bmp');
    MIni.Clear;
    ShowMessage('Les modifications ont étés appliquées avec succès pour Windows 9X !');
    MIni.Lines.Add('9x');
    End;
 
1 : Begin//2000
    MIni.Lines.SaveToFile('c:\winnt\system32\oeminfo.ini');
    ImgLogoXP.Picture.SaveToFile('c:\winnt\system32\oemlogo.bmp');
    MIni.Clear;
    ShowMessage('Les modifications ont étés appliquées avec succès pour Windows 2000 !');
    End;
 
2  : Begin//XP
     MIni.Lines.SaveToFile('C:\Windows\System32\oeminfo.ini');
     ImgLogoXP.Picture.SaveToFile('C:\Windows\System32\oemlogo.bmp');
     MIni.Clear;
     ShowMessage('Les modifications ont étés appliquées avec succès pour Windows XP!');
     End;
 
3  : Begin//Vista
     Manufacturer   := InputBox('Fabricant', 'Saisie du fabricant', 'fabricant PC');
     Model          := InputBox('Modèle PC', 'Saisie du modèle de PC', 'PC-1');
     SupportHours   := InputBox('Heures d''ouverture', 'Saisie des heures d''ouverture', '9h18h');
     SupportPhone   := InputBox('Téléphone support', 'Saisie du numéro de téléphone du support', '011 222 33 44');
     SupportURL     := InputBox('Site internet', 'Saisie de l''url du site internet', 'www.exemple.ch');
     SupportAddress := InputBox('Adresse', 'Saisie de l''adresse', 'Rue de l''exemple 12');
     Logo           := InputBox('Logo', 'Saisie du chemin d''accès au logo', 'C:\Windows\System32\oemlogo.bmp');
 
     Reg.RootKey         := HKEY_LOCAL_MACHINE;
     Reg.OpenKey         ('\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation', True);
     Reg.WriteString     ('Manufacturer', Manufacturer);
     Reg.WriteString     ('Model', Model);
     Reg.WriteString     ('SupportHours', SupportHours);
     Reg.WriteString     ('SupportPhone', SupportPhone);
     Reg.WriteString     ('SupportURL', SupportURL);
     Reg.WriteString     ('SupportAddress', SupportAddress);
     Reg.WriteString     ('Logo', Logo);
     Reg.CloseKey;
 
     ImgLogoVistaSeven.Picture.SaveToFile(Logo);
 
     MIni.Clear;
     ShowMessage('Les modifications ont étés appliquées avec succès pour Windows Vista!');
     End;
 
4  : Begin//Seven
     Manufacturer   := InputBox('Fabricant', 'Saisie du fabricant', 'Fabricant PC');
     Model          := InputBox('Modèle PC', 'Saisie du modèle de PC', 'PC-1');
     SupportHours   := InputBox('Heures d''ouverture', 'Saisie des heures d''ouverture', '9h-18h');
     SupportPhone   := InputBox('Téléphone support', 'Saisie du numéro de téléphone du support', '011 222 33 44');
     SupportURL     := InputBox('Site internet', 'Saisie de l''url du site internet', 'www.exemple.ch');
     SupportAddress := InputBox('Adresse', 'Saisie de l''adresse', 'Rue de l''exemple 12');
     Logo           := InputBox('Logo', 'Saisie du chemin d''accès au logo', 'C:\Windows\System32\oemlogo.bmp');
 
     Reg.RootKey         := HKEY_LOCAL_MACHINE;
     Reg.OpenKey         ('\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation', True);
     Reg.WriteString     ('Manufacturer', Manufacturer);
     Reg.WriteString     ('Model', Model);
     Reg.WriteString     ('SupportHours', SupportHours);
     Reg.WriteString     ('SupportPhone', SupportPhone);
     Reg.WriteString     ('SupportURL', SupportURL);
     Reg.WriteString     ('SupportAddress', SupportAddress);
     Reg.WriteString     ('Logo', Logo);
     Reg.CloseKey;
 
     ImgLogoVistaSeven.Picture.SaveToFile(Logo);
 
     MIni.Clear;
     ShowMessage('Les modifications ont étés appliquées avec succès pour Windows Seven !');
     End;
 
end;//fin case of
 
CBOS.SetFocus;
 
end;//fin procedure
 
{===============================================================================
Procedure BtnResetClick OnClick
===============================================================================}
procedure TForm1.BtnResetClick(Sender: TObject);
begin
CBOS.Text                 := '';
 
ImgXP.Visible             := False;
ImgVista.Visible          := False;
ImgSeven.Visible          := False;
ImgLogoXP.Visible         := False;
ImgLogoVistaSeven.Visible := False;
MIni.Clear;
 
CBOS.SetFocus;
end;//fin procedure
 
{===============================================================================
Procedure BtnQuitter OnClick
===============================================================================}
procedure TForm1.BtnQuitterClick(Sender: TObject);
begin
Application.Terminate;
end;//fin procedure
 
end.//fin unite

[dark1]

bonsoir!

ba sous vista & seven l'uac bloque l'accès !
pour pouvoir accédé a la bse de registre a mon avis tu dois remplacer :

Code :

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

 Reg.RootKey         := HKEY_LOCAL_MACHINE;

par

Code :

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

 Reg.RootKey         := HKEY_CURRENT_USER;

pour l'autre patrie ( le logo que tu veux deplacer dans system32)
tu auras le même problème luac sous vista et seven bloque l'opération donc vaut mieux que tu change l'emplacement de ton logo!

bonne chance !

[sic_88]

Bonjour Dark1,

Pour modifier les informations OEM dans Vista et Seven, il faut ajouter des valeurs chaines dans la clé

Code :

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

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]

C'est ainsi que ça fonctionne j'ai ne peut donc pas modifier la RootKey.

Le logo pourrait, en ce qui le concerne, être placé ailleur à partir du moment ou la valeur "Logo" contient le chemin d'accès correct.
Mais j'aimerai mieu pouvoir le mettre dans System32 comme c'est le cas dans les versions précédentes de Windows.

Le manifest ne devrait-il pas corriger ces fameux problèmes d'accès ?

[cincap]

Bonjour à toutes et à tous,

@ Sic_88, je viens de faire un test avec ceci et cela fonctionne sans fichier Manifest avec Vista.

Naturellement il faut exécuter hors Delphi ton application avec le click droit et en tant qu'Administrateur :

Code :

Cb1 = TcheckBox

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
 
 
Const
Test = '\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation' ;
 
function TForm1.GetDeleteValue(SelectRootKey: HKEY; SelectKey:string; Key: string): Boolean;
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, False);
        Result := DeleteValue(Key);
      finally
       Free;
      end;
    end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Reg: TRegistry;
  Key: string;
begin
 
  If cb1.Checked Then
      Begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Key := Test;
    if Reg.OpenKey(Key, True) then
    begin
 
      Reg.WriteString('Manufacturer',Paramstr(0) {Manufacturer});
 
      Reg.CloseKey;
      cb1.Caption := 'Annule !';
 
    end;
  finally
    Reg.Free
  end;
 
      End
   Else
      Begin
      Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Key := TEST;
    if Reg.OpenKey(Key, True) then
    begin
 
      GetDeleteValue(HKEY_LOCAL_MACHINE, Test, 'Manufacturer');
      Reg.CloseKey;
 
      cb1.Caption := 'C''est Ok !';
    end;
  finally
    Reg.Free
  end;
      End;
 
end;

@+,

Cincap