请教大家一个小问题：如何得到当前电脑的名称？

Question

用
GetComputerName(char *Buf,int BufLength);
其中返回的Buf就是电脑名

Answer 1

能否给一个实例！因为我不太懂getcomputername函数！
谢谢！

Answer 2

代码是bcb的，抱歉我不熟悉delphi,不过想来不是问题吧:
//---------------------------
char CptName[255];
GetComputername(CptName,255);
ShowMessage("计算机名："+AnsiString(CptName));

Answer 3

TO：glcs(古老传说)　
SORRY！我很笨的还没有调通！
现在的问题是PCHAR类型的CptName如何转换成string类型？

Answer 4

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 5

忘了 
ComputerName:string;

Answer 6

搞定了！
多谢谢aningstar(aningstar)和glcs(古老传说)；
给你们加分！

Answer 7

又写了一个
procedure TForm1.Button1Click(Sender: TObject);
var
  Len : DWord;
  ComputerName:string;
begin    Len:= 255;
    setlength(computername,255);
    GetComputerName(pchar(ComputerName),Len);
    setlength(ComputerName,strLen(pchar(ComputerName)));
   ShowMessage(ComputerName);
end;