Discussion :

[M.Dlb]

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+

[Reisubar]

J'utilise :

Code :

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

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;

[Coussati]

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 :

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

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

1
2
3
begin
Edit1.text:=NomReseau;
end;

Ajouter un Tboutton "nom utilisateur" et mettre :

Code :

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

1
2
3
begin
Edit2.text:=NomUtilisateur;
end;

et voilà avec ça tu pas de prob

@++

[M.Dlb]

Merci beaucoup !