Вопрос № 102036: Привет Експерти.
Мне нужно получить список имен всех пользователей.
Имя активного пользователя узнать просто(getusername), а получить список всех не знаю как.
Помогите.
Моя жизнь вваших руках. :-)
Спасибо. ...Вопрос № 102068: Уважаемые эксперты, у меня к вам 2 вопроса
1) как создать собственный компонент
2) как создать компонент унаследованный от существующего в делфи.
..Вопрос № 102118: Как можно проерить является ли строка IP адрессом или доменом...
Вопрос № 102.036
Привет Експерти.
Мне нужно получить список имен всех пользователей.
Имя активного пользователя узнать просто(getusername), а получить список всех не знаю как.
Помогите.
Моя жизнь вваших руках. :-)
Спасибо.
Отвечает: Coupler
Здравствуйте, Мельник Віктор Ананійович!
В прикрепленном файле - исходник, получающий список всех пользователей в системе (NT, 2k, XP). Нужные функции также лежат в приложении. Взято с DRKB
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 14.09.2007, 14:17
Вопрос № 102.068
Уважаемые эксперты, у меня к вам 2 вопроса
1) как создать собственный компонент
2) как создать компонент унаследованный от существующего в делфи.
Отправлен: 14.09.2007, 18:52
Вопрос задал: Кэр Лаэда (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Gh0stik
Здравствуйте, Кэр Лаэда!
Поскольку данный вопрос весьма объемен, то осмелюсь предложить Вам такие две книги: Рэй Конопка. Создание оригинальных компонент в среде Delphi Рэй Конопка Создание оригинальных компонент в среде Delphi Книга написана известным автором и разработчиком Рэем Конопкой и посвящена построению профессиональных компонент визуальной среды разработки Delphi. Рассматриваются вопросы, связанные с основными аспектами объектно-ориентированного программирования, работы в среде Delphi, языка Object Pascal и визуального подхода к быстрой разработке приложений....
Михаил Голованов, Евгений Веселов. Создание компонентов в среде Delphi. Руководство разработчика Книга посвящена созданию компонентов на языке Object Pascal, предназначенных для использования в средах разработки фирмы Borland. Описываются особенности реализации ООП в Object Pascal и библиотеки классов VCL и CLX. Показывается, как расширять имеющиеся компоненты и писать собственные компоненты "с нуля". Рассматриваются невизуальные, графические и оконные компоненты, а также компоненты для работы с СУБД. Представлен процесс создания редакторов компонентов и их свойств, широко применяемых в
Delphi. Даны практические рекомендации по распространению готовых компонентов и встраиванию их в среду разработки, по написанию справочной системы для разработанных компонентов, по расширению возможностей IDE Delphi. Приведено подробное описание малодокументированной возможности Object Pascal, связанной с получением и использованием информации времени выполнения (RTTI). Изложение сопровождается большим количеством примеров самых различных типов компонентов....
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 14.09.2007, 23:03
Вопрос № 102.118
Как можно проерить является ли строка IP адрессом или доменом
Самый простой способ проверки, является ли введенная строка IP-адресом - это проверка последнего символа строки. В доменных адресах последний символ никогда не является цифрой:
var
addr: String;
... if not (addr[Length(addr)] in ['0'..'9']) then
MessageBox(Handle, PChar(addr + ' не является IP-адресом'),
'IsIPAddress', MB_ICONASTERISK);
Второй вариант (посложнее) - воспользоваться приведенной в приложении функцией. Данная функция проверяет, является ли введенная строка правильным IP-адресом (т.е. адресом вида: 0..255.0..255.0..255.0..255).
Пример использования функции:
if not IsIPAddress(Edit1.Text) then
MessageBox(Handle, PChar(Edit1.Text + ' не является IP-адресом'),
'IsIPAddress', MB_ICONASTERISK);
Удачи!
Приложение:
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 15.09.2007, 13:13 Оценка за ответ: 5 Комментарий оценки: Спасибо, то что надо
Отвечает: Багель Александр
Здравствуйте, Зиновьев Максим Александрович!
Можно воспользоваться следующим кодом.
Здесь первоначально предполагается что передан IP адрес, но если inet_addr вернет ошибку, тогда предполагается что передано UNC имя. Если это не так, то gethostbyname вернет ошибку.
Приложение:
Ответ отправил: Багель Александр (статус: 1-ый класс)
Ответ отправлен: 17.09.2007, 10:02 Оценка за ответ: 5
