问getcomputername的用法(50分)

问getcomputername的用法
最好举个例子

var
computername: array[0..30] of char;
size: dword;
begin
size := sizeof(computername);
FillChar(computername, Size, ' ');
getcomputername(username,size);
....
end;
不过此函数好象只给NT作的,2000下可以,再9X就只能读注册表

接受答案了.