Скачать: CL | DM;

Как узнать имя компьютера?   Найти похожие ветки 

← →
mm0 ©   (2003-08-11 06:46) [0]

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

---

← →
gek ©   (2003-08-11 07:22) [1]

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

---

← →
Игорь Шевченко ©   (2003-08-11 09:53) [2]

gek © (11.08.03 07:22)

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

---

← →
default ©   (2003-08-11 09:56) [3]


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


---

← →
Reindeer Moss Eater ©   (2003-08-11 10:03) [4]

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

---

← →
gek ©   (2003-08-11 12:01) [5]

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


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

---

← →
Prov ©   (2003-08-12 09:29) [6]

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("

---

← →
mm0 ©   (2003-08-13 20:55) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c