Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Имя компьютера [D6, WinXP]

Igor_34 © (2008-07-17 16:06:00)
С помощью какой функции можно узнать имя компьютера , с которого загружена программ .
Спасибо .

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

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

Igor_34 (2008-07-17 16:37:00) [2]
Спасибо - я ошибся , на котором запущена - все получилось .

Поросенок Винни-Пух (2008-07-17 16:26:00) [3]
ParamStr(0) затем анализ начала строки.
если там адрес, то гетхостбайадр
если там диск, то проверка на локальный/сетевой
если сетевой, то дальше копать окуда он замаплен.
если локальный, то [1]

Поросенок Винни-Пух (2008-07-17 16:19:00) [4]
это на котором запущена, а не с которого.

stas (2008-07-17 16:11:00) [5]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »