Discussion :

[Vinceee38]

Bonjour à tous ,
je suis en train de coder un programme en delphi et je rencontre un petit probleme , j'ai creer un bouton qui permet de modifier le nom de l'ordinateur (récuperer dans un champ):

Code :

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

1
2
3
4
5
6
7
procedure TForm4.Button3Click(Sender: TObject);
begin
  if SetComputerName(PChar(Edit1.Text)) then
    ShowMessage('Redémarrer l''ordinateur afin de prendre en compte la modification')
  else
    ShowMessage('Erreur : Nom non valide ou vous n''avez pas les droits d''administrateur')
end;

Mais une fois lancé, il s'est passé un truc incohérent après plusieurs reboot la commande echo %computername%" afffichait bien le nouveau nom et l'onglet système l'ancien !!

Qu'est ce qu'il faut faire de plus s'il vous plait ??? merci d'avance

[Vinceee38]

D'aprés mes recherches j'ai l'impression que je dois utiliser SetComputerNameEx mais je ne comprend pas trop comment cette fonction marche ...

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
type
  TComputerNameFormat = ( 
  ComputerNameNetBIOS, 
  ComputerNameDnsHostname, 
  ComputerNameDnsDomain, 
  ComputerNameDnsFullyQualified, 
  ComputerNamePhysicalNetBIOS, 
  ComputerNamePhysicalDnsHostname, 
  ComputerNamePhysicalDnsDomain, 
  ComputerNamePhysicalDnsFullyQualified, 
  ComputerNameMax );
  COMPUTER_NAME_FORMAT = TComputerNameFormat;
 
function SetComputerNameEx(
  NameType: TComputerNameFormat;
  lpBuffer: PChar
): BOOL; stdcall;
external kernel32 name 'SetComputerNameExA';

j'ai rajouté ceci mais quand je compile j'ai l'erreur suivante :

": attendu mais = trouvé" pour TComputerNameFormat =
...

[banban54]

bonjour

ben oui c'est explicite

Code :

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

COMPUTER_NAME_FORMAT := TComputerNameFormat;

à plus

[Vinceee38]

merci de ta réponse mais l'erreur ne vient pas de

Code :

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

COMPUTER_NAME_FORMAT := TComputerNameFormat;

mais de :

Code :

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

1
2
3
4
5
6
7
8
9
10
TComputerNameFormat = ( 
  ComputerNameNetBIOS, 
  ComputerNameDnsHostname, 
  ComputerNameDnsDomain, 
  ComputerNameDnsFullyQualified, 
  ComputerNamePhysicalNetBIOS, 
  ComputerNamePhysicalDnsHostname, 
  ComputerNamePhysicalDnsDomain, 
  ComputerNamePhysicalDnsFullyQualified, 
  ComputerNameMax );

[CapJack]

C'est marrant, ça ! Moi, j'ai copié/collé ton code, et ça passe sans problème à la compilation. La déclaration du type énuméré est correcte, le synonyme est bien déclaré aussi (oui, entre deux types c'est bien = et pas :=), la fonction itou, je ne vois pas où est l'erreur.

Par contre, pour ce qui est du problème que tu soulevais, j'ai trouvé un autre vieux fil sur le site, de quelqu'un qui a exactement le même problème et une solution, mais en C# :
http://www.developpez.net/forums/sho...d.php?t=136567

D'ailleurs, c'est drôle, il y a exactement la même quesiotn, posée tout pareil !

Sinon, autre question que je me pose : les types énumérés du Pascal et du C sont-ils compatibles ? Il peut (peut-être !) y avoir problème à ce niveau, non ?

[Vinceee38]

CapJack merci pour ta réponse tu utilise quelle version de delphi stp ?? car moi je te promet que j'ai un problème de compilation

Concernant ce post :http://www.developpez.net/forums/sho...d.php?t=136567 je l'avais vu mais n'étant pas du delphi j'ai ouvert un nouveau post.

EDIT : En fait pour la compilation j'ai trouvé mon erreur je devais le mettre avant le TFORM , désolé du dérangement et merci CapJack

[Vinceee38]

Donc y avait quelques changements à faire , je vais tout expliquer pour que les prochains y arrivent sans problèmes:

Donc il faut tout d'abord rajouter au tout début aprés USES:

Code :

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

1
2
Const
  kernel32                        = 'kernel32.dll';

Ensuite avant les procédures copier ceci :

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
type
  TComputerNameFormat = (
  ComputerNameNetBIOS,
  ComputerNameDnsHostname,
  ComputerNameDnsDomain,
  ComputerNameDnsFullyQualified,
  ComputerNamePhysicalNetBIOS,
  ComputerNamePhysicalDnsHostname,
  ComputerNamePhysicalDnsDomain,
  ComputerNamePhysicalDnsFullyQualified,
  ComputerNameMax );
  COMPUTER_NAME_FORMAT = TComputerNameFormat;
 
function SetComputerNameEx(
  NameType: TComputerNameFormat;
  lpBuffer: PChar
): BOOL; stdcall;
external kernel32 name 'SetComputerNameExA';

et Enfin utiliser SetComputerNameEx de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm4.Button3Click(Sender: TObject);
 
begin
  if SetComputerName(PChar(Edit1.Text)) AND Win32Check(SetComputerNameEx(ComputerNamePhysicalDnsHostname, PChar(Edit1.Text))) AND Win32Check(SetComputerNameEx(ComputerNamePhysicalNetBIOS, PChar(Edit1.Text)))
  then
    ShowMessage('Redémarrer l''ordinateur afin de prendre en compte la modification')
  else
    ShowMessage('Erreur : Nom non valide ou vous n''avez pas les droits d''administrateur')
end;

Chez moi ca marche nikel avec Delphi 6

J'éspère que ca servira à quelqu'un
++