Comment connaître le nom de l'ordinateur ?

Connaissez-vous un moyen de connaitre le nom de l'ordinateur qui exécute mon application. Cette astuce devrait, si possible marcher pour win9x et la famille NT !
Merci
a+

J'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function GetLocalComputerName: string; var Count: DWORD; begin Count := MAX_COMPUTERNAME_LENGTH + 1; SetLength(Result, Count); if GetComputerName(PChar(Result), Count) then SetLength(Result, StrLen(PChar(Result))); else Result := ''; end;

---

J'utilise ce code pour avoir le nom de l'ordi et l'user :


Ajouter 2 Tedit (1= nom ordinateur et 2= nom utilisateur)


Ajouter dans les procédures :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function NomUtilisateur:string; var Buffer : array[0..255] of char; BufferSize : DWORD; begin BufferSize := sizeOf(Buffer); GetUserName(@buffer, BufferSize); Result:=Buffer; end;   function NomReseau:string; var Buffer : array[0..255] of char; BufferSize : DWORD; begin BufferSize := sizeOf(Buffer); GetComputerName(@buffer, BufferSize); Result:=Buffer; end;

---

Ajouter un Tboutton "nom ordinateur" et mettre :

Code:

---

1 2 3

begin Edit1.text:=NomReseau; end;

---

Ajouter un Tboutton "nom utilisateur" et mettre :

Code:

---

1 2 3

begin Edit2.text:=NomUtilisateur; end;

---

et voilà avec ça tu pas de prob

@++

Merci beaucoup !