[D6] Souci avec SetComputerName

Version imprimable

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:

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

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:

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 =
...

07/05/2007, 16h14
banban54

bonjour

ben oui c'est explicite

Code:

COMPUTER_NAME_FORMAT := TComputerNameFormat;

à plus

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

Code:

COMPUTER_NAME_FORMAT := TComputerNameFormat;

mais de :

Code:

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

07/05/2007, 20h37
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 ?
09/05/2007, 09h53
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

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:

1
2
Const
  kernel32                        = 'kernel32.dll';

Ensuite avant les procédures copier ceci :

Code:

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:

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 :)
++