다른 방법동 있겠지만...
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := '(n/a)';
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SystemCurrentControlSetServicesVxDVNETSUP', false) then
Result := ReadString('ComputerName');
finally
CloseKey;
free;
end;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := '(n/a)';
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SystemCurrentControlSetServicesVxDVNETSUP', false) then
Result := ReadString('ComputerName');
finally
CloseKey;
free;
end;
이케해도 가지고 오던데요...
즐프하세요...