IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

reseau et regedit


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Octobre 2004
    Messages
    345
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 345
    Par défaut reseau et regedit
    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.

  2. #2
    Rédacteur
    Avatar de Giovanny Temgoua
    Profil pro
    Étudiant
    Inscrit en
    Novembre 2003
    Messages
    3 830
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2003
    Messages : 3 830

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Juillet 2005
    Messages
    111
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Juillet 2005
    Messages : 111
    Par défaut
    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

  4. #4
    Membre éclairé
    Inscrit en
    Octobre 2004
    Messages
    345
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 345
    Par défaut
    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.

  5. #5
    Membre éclairé
    Inscrit en
    Octobre 2004
    Messages
    345
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 345
    Par défaut
    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

Discussions similaires

  1. [VB6] [Réseau] Connexion et partage de données
    Par tomnie dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 21/10/2002, 18h12
  2. Connecter un lecteur reseau
    Par manusweb dans le forum C++Builder
    Réponses: 4
    Dernier message: 03/09/2002, 12h07
  3. Creer un reseau local via l adsl
    Par loki dans le forum Développement
    Réponses: 11
    Dernier message: 12/08/2002, 00h14
  4. reseau de neuronnes
    Par mumu2001 dans le forum Méthodes prédictives
    Réponses: 3
    Dernier message: 25/07/2002, 09h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo