Как узнать имя компьютера?

← →
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)

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

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

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

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