一个very,very easy question,but i dont know.

Question

The question is too easy,but I don't know either.

Answer 1

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 2

有,
读这个键
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName
下的ComputerName的值,readstring:)

Answer 3

GetComputerName(CNameBuffer,255);就可以了。复杂是因为考虑到多种因素；安全、资源……

Answer 4

谁能帮我解释：　z_x_b(长弓落日金沙丘)　兄弟给我的这段程序，我有好多，都看不懂

Answer 5

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);//同上基本上这样。

Answer 6

GetComputerName 函数返回boolean类型的变量。
Strpas将pchar类型转换成string类型。这两点搞明白了就没问题了，我想。