getcomputername函数的用法?

Question

这个问题太菜了,请问getcomputername函数的正确用法.我在DELPHI中是这样写的,但是提示是错的:  var
    computername: pchar;
  begin
    getcomputername(computername,255);
    edit1.text:=string(computername);

Answer 1

var
    computername: pchar;
    Size : cardinal;
  begin
    getcomputername(computername,Size);
    edit1.text:=string(computername);

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;