Узнать имя компьютера

Автор: Борисов Сергей

Tweet

uses Windows;
...
Function ReadComputerName:string;
var
 i:DWORD;
 p:PChar;
begin
 i:=255;
 GetMem(p, i);
 GetComputerName(p, i);
 Result:=String(p);
 FreeMem(p);
end;

• Asus laptop screens

  Инфоканал Олимпиады 2008. Каталог интервью со спортсменами и тренерами.

  laptopscreen.com

• Советы посетителей, сдать снять квартиру.

  bazanda.ru

Просмотров: 3714

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга