Получить или установить имя компьютера

Советы » Компьютер » Получить или установить имя компьютера

{ Retrieve the computer name }

 function

GetComputerName: string

; var

buffer: array

[0..MAX_COMPUTERNAME_LENGTH + 1] of

Char; Size: Cardinal; begin

Size := MAX_COMPUTERNAME_LENGTH + 1; Windows.GetComputerName(@buffer, Size); Result := StrPas(buffer); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

ShowMessage(GetComputerName); end

; { Set the computer name } function

SetComputerName(AComputerName: string

): Boolean; var

ComputerName: array

[0..MAX_COMPUTERNAME_LENGTH + 1] of

Char; Size: Cardinal; begin

StrPCopy(ComputerName, AComputerName); Result := Windows.SetComputerName(ComputerName); end

; procedure

TForm1.Button2Click(Sender: TObject); begin

if

SetComputerName('NewComputerName') then

ShowMessage('Computer Name Reset Setting will be used at next startup.') else

ShowMessage('Computer Name Not Reset'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com