Время компиляции файла: 2024-04-24 21:32:50 Получить или установить имя компьютера . Delphi , ОС и Железо , Компьютер :: KANSoftWare

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

Delphi , ОС и Железо , Компьютер

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 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 и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Компьютер ::

24.04.2024 21:43:06/0.00067305564880371/0