Текущий архив: 2008.08.24;
Скачать: CL | DM;

Вниз

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

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

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

---

← →
stas ©   (2008-07-17 19:16) [5]

Поросенок Винни-Пух ©   (17.07.08 16:19) [2]
Igor_34   (17.07.08 16:37) [4]

Наверное я телепат ))))

---

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

Текущий архив: 2008.08.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c