| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать имя компьютера? [D6, WinXP]

mm0 ©   (2003-08-11 06:46:00) 

как узнаить имя компьютера нза котором я сижу (на DELPHI)

---

mm0   (2003-08-13 20:55:00) [1]

Спасибо.Работает

---

Prov   (2003-08-12 09:29:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var CompName: array[0..MAX_COMPUTERNAME_LENGTH] of PChar; Size: cardinal; Name: PChar;
begin
Size:= SizeOf(CompName);
GetComputerName(@CompName, Size);
Name:= PChar(StrPas(@CompName));
ShowMessage("

---

gek   (2003-08-11 12:01:00) [3]

> Игорь Шевченко © (11.08.03 09:53)


Да конечно. Прошу прошение за неточность в ответе.

---

Reindeer Moss Eater   (2003-08-11 10:03:00) [4]

Удалено модератором
Примечание: Offtopic

---

default   (2003-08-11 09:56:00) [5]


var
CN: String;
begin
SetLength(CN, 100);
SetLength(CN, GetComputerName(PChar(CN), Length(CN)))


---

Игорь Шевченко   (2003-08-11 09:53:00) [6]

gek © (11.08.03 07:22)

Наверное, все-таки, GetComputerName вместо GetUserName

---

gek   (2003-08-11 07:22:00) [7]

UsName: array[0..127] of char;
Size: Cardinal;
begin
Size:=128;
GetUserName (UsName,Size);

---

Наверх