Discussion :

[nah_wah]

Salut tout le monde,
je voudrais inserer dans chaque poste de mon reseau une cle dans la base de registre sachant que je peux acceder a tout le reseau et je peux y executer des programmes et cette cle me permettera d'executer un programme au demmarage de windows.
Merci.

[Giovanny Temgoua]

Un début de réponse ici http://delphi.developpez.com/faq/?pa...re#bdrdistante

[Qapoka]

Pour le faire sur des ordi distants, je sais pas mais la manipulation du registre est avec:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
   Reg: TRegistry; 
begin 
   Reg := TRegistry.Create; 
   try 
      Reg.RootKey := HKEY_CURRENT_USER; 
      if Reg.OpenKey('Software/Microsoft/Macle', False) then 
      begin 
         Reg.WriteString('MaValeur', FormatDateTime('yyyy.mm.dd hh:nn:ss', Now)); 
         Reg.CloseKey; 
      end; 
   finally 
      Reg.Free; 
   end;

N'oublie pas d'ajouter Registry dans tes uses.

[Modération]
Merci de penser à la balise Code, Bestiol

[nah_wah]

resalut,
Merci qapoka mais pour le local je n'ai pas de souci,mais king kaiser m'a compris c'est l'ecriture a distance j'ai pu utiliser le code du lien mais la fonction RegistryConnect ne marche pas sachant que je peux acceder au servername .
Autre moyen Svp.
Merci.

[nah_wah]

Salut tout le monde,
je suis parvenu a me connecter vers le poste distant mais lors de l'ecriture dans la base de registre il me sort un message:
voici ma procedure :

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
Procedure TForm1.BRegDistante(ServerName:String);
Const
  CleMachineDistante ='\SOFTWARE\Microsoft\Windows\CurrentVersion';
  CleRecherchee      ='GSM';
Var
  Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\'+CleMachineDistante+'\'+CleRecherchee,true);
 Try
    if not Reg.RegistryConnect('\\'+ServerName) then
   begin
      MessageDlg('Ne peut se connecter sur :'#13#10+ServerName, mtWarning,[mbOk], 0);
      Exit;
    end;
  if  Not (Reg.ValueExists('Server')) then
   begin
    Reg.WriteString('Server','aaaa');//le message sur cette ligne
    showMessage('Ok')
   end
    else
      MessageDlg('Erreur clé absente:'#13#10+CleRecherchee, mtWarning,[mbOk], 0);
  Finally
    Reg.Free;
  End;
end;

le message est le suivant:

Code :

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

1
2
 
Echec a la  definition des données pour 'Server'

besoin d'aide SVP
Merci