Форум: "Начинающим";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];
Вниз
Имя компьютера Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
