작업그룹에 대해서는 저도 잘 모르겠구요;;
컴퓨터 이름은 GetComputerName, SetComputerName으로 조회, 수정할 수 있습니다..
조회는,
<!--CodeS-->
var
Size: dword;
ComputerName: string;
begin
Size := MAX_COMPUTERNAME_LENGTH+1;
SetLength(ComputerName,Size);
if GetComputerName(PChar(ComputerName), Size) then
Edit.Text:= 'PC Name : '+ComputerName;
end;
<!--CodeE-->
이런식이구요.. 수정은 그냥
SetComputerName(PChar(new_name));
이렇게 해주면 됩니다 ^-^
컴퓨터 이름은 GetComputerName, SetComputerName으로 조회, 수정할 수 있습니다..
조회는,
<!--CodeS-->
var
Size: dword;
ComputerName: string;
begin
Size := MAX_COMPUTERNAME_LENGTH+1;
SetLength(ComputerName,Size);
if GetComputerName(PChar(ComputerName), Size) then
Edit.Text:= 'PC Name : '+ComputerName;
end;
<!--CodeE-->
이런식이구요.. 수정은 그냥
SetComputerName(PChar(new_name));
이렇게 해주면 됩니다 ^-^