PORQUE NÃO FUNCIONA NO WINDOWS 2000????????????

PORQUE NÃO FUNCIONA NO WINDOWS 2000????????????

Eu gostaria de entender......alguém sabe???


function GetNetStation (Tipo: Integer): String;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := ´O computador não está em rede´;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(´System\CurrentControlSet\Services\VxD\VNETSUP´, false) then
begin
Case Tipo of
1: Result := ReadString(´ComputerName´);
2: Result := ReadString(´Workgroup´);
3: Result := ReadString(´Comment´);
end;
end;
Finally
CloseKey;
free;
end;
end;