Получить или установить имя компьютераDelphi , ОС и Железо , КомпьютерПолучить или установить имя компьютера
Оформил: DeeCo { 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; Статья описывает программный код на языке Delphi, который позволяет получать и изменять имя компьютера. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |