getcomputername()中的两个变量如何定呢？我总用不对，能给个详细的例子吗？(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
CName: array [0..Max_ComputerName_Length] of Char;
CNLength: DWORD;
begin
CNLength := Max_ComputerName_Length+1;
if GetComputerName(@CName[0], CNLength) then
Label1.Caption := CName
else
Label1.Caption := format('Get Computer name failed, error: %d.',[GetLastError]);
end;

var
// 计算机名的Char数组
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH] of Char;

// 计算机名的最大长度
NameSize: Cardinal;
begin
...
NameSize := MAX_COMPUTERNAME_LENGTH + 1;

GetComputerName(ComputerName, NameSize);

Edit1.Text := ComputerName;// 显示在Edit1组件中
...
end;

说明:
MAX_COMPUTERNAME_LENGTH 是一个常量,在Windows单元中定义,值为 15 .

时间太久，强制结束。 wjiachun