Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 05.12.02 09:04

Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • "Hunter" - монитор сети dim- eda@arhadm.net.ru   (04.12.02 14:28)
    Выложил новую версию "Hunter" - монитор сети, сообщает Вам если в расшаренные папки вашей машины кто-то ломится и протоколирует это. Изменен интерфейс (чуть-чуть), добавленны некоторые функции и самое главное работает под Win9x, WinNT, Win2000, WinME, WinXP
    по ссылке лежит пустой zip файл, а
    Все можно взять на http://www.dimeda.by.ru/prog.shtml
    »»» Скачать: исходные тексты
  • Процедура разбивки строки на отдельные слова Separator separator@mail.kz   (11.11.02 10:20)
    см. сабж
    »»» Скачать: исходные тексты
  • "Hunter" - монитор сети dim- eda@arhadm.net.ru   (05.12.02 00:10)
    Выложил новую версию "Hunter" - монитор сети, сообщает Вам если в расшаренные папки вашей машины кто-то ломится и протоколирует это. Изменен интерфейс (чуть-чуть), добавленны некоторые функции и самое главное работает под Win9x, WinNT, Win2000, WinME, WinXP
    по ссылке лежит пустой zip файл, а
    Все можно взять на http://www.dimeda.by.ru/prog.shtml
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Как узнать версию Windows?
Использовать функцию API GetVersionEx

function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;

Аргумент функции – структура TOSVersionInfo, содержит
DwVersionInfoSize:DWORD – заполняется как sizeof TOSVersionInfo) перед вызовом функции
DwMajorVersion:DWORD – старшая цифра версии Windows
 Win NT 3.5 = 3
 Win NT 4.0, Win9x = 4
 Win2000 = 5
 Win XP = 5
DwMinorVersion: DWORD – младшая цифра версии
 Win NT 3.51 = 51
 Win NT 4.0 = 0
 Win 95 = 0
 Win98 = 10 (вообще говоря больше 0
 Win 2000 = 0
 Win XP = 1

DwBuildNumber: DWORD
 Win NT 40 – номер билда
 Win 9x – старший байт – старшая и младшая цифры версии / младший – номер билда

dwPlatformId: DWORD
 VER_PLATFORM_WIN32s            Win32s on Windows 3.1.
 VER_PLATFORM_WIN32_WINDOWS  ! ;   Win32 on Windows 9x
 VER_PLATFORM_WIN32_NT          Win32 on Windows NT, 2000

SzCSDVersion:DWORD
NT – содержит PСhar с инфо о установленном ServicePack
9x– доп. инфо, может и не быть

Комментарий от Ошин Влад (RV@fss.moris.ru)
я делаю так

  R:=TRegistry.Create;
  R.RootKey:=HKEY_LOCAL_MACHINE;
  R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
  No:=R.ReadString('Version'); //ну и все прочее из этого ключа
  R.Free;


Комментарий от BAHO (qvitron@mail.ru)
Считаю нужным дополнить код Ошина Влада. В NT подобных ОС надо писать так:

R.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);


Комментарий от Копысов Владислав (postmaster@autodealer.ru)
Для NT-подобных систем необходимо писать

R.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows
NT\CurrentVersion')

ина! че доступ будет закрыт для пользователя с НЕ администраторскими
правами.

Комментарий от Alexandr Belayev (var_alex@fromru.com)
 Уже давно в sysutils обявлены след переменные:

//-----------------------------------------------------------------
  Win32Platform: Integer = 0;

{ Win32 OS version information -
  see TOSVersionInfo.dwMajorVersion/dwMinorVersion/dwBuildNumber }

  Win32MajorVersion: Integer = 0;
  Win32MinorVersion: Integer = 0;
  Win32BuildNumber: Integer = 0;

{ Win32 OS extra version info string -
  see TOSVersionInfo.szCSDVersion }

  Win32CSDVersion: string = '';
//-----------------------------------------------------------------

которые заполняются в процедуре procedure InitPlatformId; объявленной
в том-же sysutils. И эта функция вызывается в initialization sysutils.
Итого, для получения информации о версии ОС уже готова! к использованию
без лишних телодвижений. Хотя если не используется sysutils, то не получится.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Серия статей. Kylix Tutorial. 3. Работа с базами данных через dbExpress. Коннект - есть коннект.
Сегодня мы продолжим рассмотрение и сосредоточимся на компоненте SQLConnection.
Новинки книжного рынка   |x|
Delphi 6. Базы данных и приложения
В книге предпринята попытка дать читателю целостное представление о процессе разработки программного обеспечения для реляционных баз данных.
В рамках поставленной цели авторами решены следующие задачи: рассмотрены основы языка Object Pascal на примере создания консольных приложений; рассмотрены объектно-ориентированные возможности языка Object Pascal и технология визуального программирования; описаны основные принципы работы с SQL-ссрвером InterBase; изложена методика взаимодействия программ, созданных в среде Delphi, с базами данных различного типа, в частности, SQL-сервером InterBase: рассмотрены основы проектирования баз данных с использованием программы ERwin; описана "методика разработки клиентского приложения для доступа к базам данных с использованием библиотек динамической загрузки, а также популярных программ Word и Excel для создания отчетов. На примере БД "Учебные компьютерные курсы" рассмотрен процесс разработки программного обеспечения, ! начиная с вопросов проектирования и заканчивая подготовкой отчетов.
Книга может быть использована в качестве основы курса лекции по соответствующей дисциплине.
Книга предназначена для старшеклассников, студентов, аспирантов, преподавателей и пользователей ПК, интересующихся программированием.
Автор: Кандзюба С. "ДиаSoft"
Другие сайты о DELPHI   |x|
DELPHI - программирование
Лучшее программирование на языке delphi
» Оценка сайта: 3
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Преследовавшие друг друга кошки
замирают -
удар грома.

Афоризмы
Когда на руках выигрышные карты, следует играть честно....

Фраза дня
Иду, вижу - кто-то пить бросил...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Калифорнии (США) есть закон, гарантирующий жителям штата право загорать на солнце.
В Аризоне (США) считается преступлением отказать человеку в просьбе дать стакан воды. В этом же штате незамужним женщинам запрещается рыбачить в одиночку. Если женщина замужем, она может ходить на рыбалку одна только по воскресеньям.

И на закуску коротенький анекдот
... Доблестный рыцарь Айболит отрезал ноги богатым и пришивал их бедным...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=39872

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное