Quelle est la meilleure méthode pour obtenir le nom de l'ordinateur local dans Delphi

Le code doit être compatible avec D2007 et D2009.

Ma Réponse: Merci à tous ceux qui ont répondu, je suis allé avec:

function ComputerName : String;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;
J'ai l'habitude de le rendre encore plus courte, en n'utilisant pas séparée de la mémoire tampon: SetLength(Résultat,256); SetLength(Résultat,GetComputerName(PChar(Suite),255));
Stijn, vous avez très certainement ne pas utiliser ce code. GetComputerName renvoie une Bool et de ne pas accepter un littéral numérique pour sa deuxième paramètre.
Alister, je vous conseille d'utiliser la constante nommée Max_ComputerName_Length pour votre taille de la mémoire tampon à la place des numéros de magie.

OriginalL'auteur Alister | 2009-07-20

  1. 17

    L'API Windows GetComputerName devrait fonctionner. Il est défini dans windows.pas.

    OriginalL'auteur Mark Wilkins

  2. 10

    Une autre approche, qui fonctionne bien est d'obtenir le nom de l'ordinateur via la variable d'environnement. L'avantage de cette approche (ou l'inconvénient selon votre logiciel), c'est que vous pouvez tromper le programme en cours d'exécution comme une autre machine facilement.

    Result := GetEnvironmentVariable('COMPUTERNAME');

    Le nom de l'ordinateur variable d'environnement est définie par le système. Pour "contourner" le problème, vous pouvez créer un fichier de commandes qui appelle votre programme, la définition de la variable d'environnement avant l'appel (chaque interpréteur de commande obtient son propre "copie" de l'environnement, et les changements sont locales à cette session ou tout les enfants a lancé à partir de cette session).

    OriginalL'auteur skamradt

  3. 7

    GetComputerName de l'API Windows est le chemin à parcourir. Voici un wrapper pour elle.

    function GetLocalComputerName : string;
    var c1    : dword;
    arrCh : array [0..MAX_PATH] of char;
begin
  c1 := MAX_PATH;
  GetComputerName(arrCh, c1);
  if c1 > 0 then
    result := arrCh
  else
    result := '';
end;

    OriginalL'auteur Conor Boyd

  4. 3

    Quoi à ce sujet :

    function GetComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);<br/>
end;

    De http://exampledelphi.com/delphi.php/tips-and-tricks/delphi-how-to-get-computer-name/

    Je ne suis pas sûr si vous êtes en essayant de répondre à cette vieille question, ou si vous êtes en train d'écrire une nouvelle question?. Lire le faq que ce site fonctionne d'une manière différente que les traditionnels forums.

    OriginalL'auteur villerose

  5. 2

    J'utilise cela,

    function GetLocalPCName: String;
var
    Buffer: array [0..63] of AnsiChar;
    i: Integer;
    GInitData: TWSADATA;
begin
    Result := '';
    WSAStartup($101, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    Result:=Buffer;
    WSACleanup;
end;

    Bye

    Juste une remarque, il faut utiliser l'unité de Winsock.

    OriginalL'auteur RRUZ