Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сетевое имя компьютера [D5, Win95/98]


Ilg ©   (2003-09-03 11:33:00) 

Здравствуйте!
Скажите, как имея полный путь к какому либо сетевому ресурсу, например "\\Comp1\C\My Documents" получить только имя компьютера, т. е. "Comp1" (или "\\Comp1")?
Заранее, Большое Спасибо!


ZEE   (2003-09-03 12:00:00) [1]

s:="\\Comp1\C\My Documents";
if pos("\\",s)>0 then delete(s,pos("\\",s),2);
while pos("\",s)>0 do setlength(s,pos("\",s)-1);
если только строки корректировать то примерно так можно,
но может через сетевые технологии как-нить - тогда ищи еще ...


Наверх

Титульная страница Поиск, карта сайта Написать письмо