关于怎样得到计算机的名字!

Question

怎么得到运行本软件的计算机的名字!

Answer 1

function GetComputerNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM GetComputerNameW}
function GetComputerNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM GetComputerName}
function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;

Answer 2

function ComputerName : String;var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;begin    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;    fl_loaded := GetComputerName(CNameBuffer,CLen^);    if fl_loaded then
      ComputerName := StrPas(CNameBuffer)
    else
      ComputerName := 'Unkown';    FreeMem(CNameBuffer,255);
    Dispose(CLen);
end;

Answer 3

再来一个：
procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: PChar;
  size: DWord;
begin
  GetMem(ComputerName,255);
  size:=255;
  //获取计算机名称
  if GetComputerName(ComputerName,size)=False then
  begin
    MessageBox(Handle,'获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);
    FreeMem(ComputerName);
    Exit;
  end;
  Edit1.Text := ComputerName;
  FreeMem(ComputerName);
end;procedure TForm1.Button2Click(Sender;TObject);
var
  ComputerName:PChar;
begin
  GetMem(ComputerName,255);
  Edit1.GetTextBuf(ComputerName,255);
  //设置计算机名称
  if SetComputerName(ComputerName)=False then
    MessageBox(Handle,'设置计算机名称失败。','错误',MB_OK+MB_ICONERROR);
  FreeMem(ComputerName);
end;

Answer 4

The GetComputerName function retrieves the computer name of the current system. This name is established at system startup, when it is initialized from the registry. BOOL GetComputerName(    LPTSTR lpBuffer, // address of name buffer 
    LPDWORD nSize  // address of size of name buffer 
   );