Имя компьютера

← →
Igor_34 (2008-07-17 16:06) [0]

С помощью какой функции можно узнать имя компьютера , с которого загружена программ .
Спасибо .

← →
stas © (2008-07-17 16:11) [1]

function GetComputerName: string;
var
N: Cardinal;
Buf: array [0..MAX_COMPUTERNAME_LENGTH + 1] of AnsiChar;
begin
N:=SizeOf(Buf)-1;
Windows.GetComputerName(Buf, N);
Result:=PChar(@Buf[0]);
end;

← →
Поросенок Винни-Пух © (2008-07-17 16:19) [2]

это на котором запущена, а не с которого.

← →
Поросенок Винни-Пух © (2008-07-17 16:26) [3]

ParamStr(0) затем анализ начала строки.
если там адрес, то гетхостбайадр
если там диск, то проверка на локальный/сетевой
если сетевой, то дальше копать окуда он замаплен.
если локальный, то [1]

← →
Igor_34 (2008-07-17 16:37) [4]

Спасибо - я ошибся , на котором запущена - все получилось .

Имя компьютера Найти похожие ветки