Back
...

========
Subject: D2.Получение имени машины в Microsoft Network.
From: Alexander Petrosyan <Alexander.Petrosyan@p8.f468.n5020.z2.fidonet.org>

В понедельник, 11 августа 97 Oleg Saladaev(2:5015/51.6) > All:
OS> Каким обpазом получить можно имя, под котоpым данное pабочее место под w95
OS> вошло в микpософтовскую сеть? (то, что видно в сетевом окpужении)
function GetComputerName: string;
var
Buffer: array[0..Pred(MAX_COMPUTERNAME_LENGTH+1)] of Char;
Size: Integer;
begin
Size := SizeOf(Buffer);
Windows.GetComputerName(Buffer, Size);
Result := Buffer;
end;

Александр Петросян, Зеленоград.

23.01.99 20:00:14