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

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

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

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

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

←   Январь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
08.01.2004
12:12:16
13:12:05
 9
10
11
12
12.01.2004
12:50:46
13:02:23
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

DELPHIMASTER.ru

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

Кое-что из нашей кладовки   |x|
Лучшее из нашего 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|
  • HDD s/n
    Уважаемые нужно узнать серийный (заводской) номер первого HDD носителя. (не диска C:) Просмотрел несколько наработок на ...
  • Переход с Delphi5 + Visibroker 3 на Delphi 7 + Visibroker4
    Если кто-то сталкивался с такой проблемой подскажите как это зделать более безболезненно и быстрее по времени!!! Есть 3 ...
  • Загрузка MOD в BASS
    Кто работает с BASS подскажите: в описании нашел такое: file - Filename (mem = FALSE) or a memory location (mem = TRUE)....
  • Tray
    Как узнать екранные координаты иконки в трее или вообще возможно ли это?
  • Как создать кнопку в стиле XP?
    Знаю, что просто кнопку можно так: ... var Button: hWnd; ... Button:= CreateWindow('BUTTON', '&Button', WS_CHILD or ...
  • Можно как-нибудь узнать названия всех удаленных соединений? Прост
    Можно как-нибудь узнать названия всех удаленных соединений? Просто список имен из папки "Сетевые подключения"
  • На чем рисовать?
    Мастера, подскажите на чем рисовать в Delphe, чтобы не затиралось другой формой. Рисую методом Canvas. Заранее ...
У нас большой выбор статей   |x|
Delphi 6: первое знакомство
Ну вот наконец-то, в руках коробочка с диском и бумажкой, на которой кто-то старательно вывел фломастером Delphi 6. Из коробочки вынимается диск, вставляется в cd-rom и...
Новинки книжного рынка   |x|
Изучаем Photoshop
Эта книга для тех, кто хотел бы научиться работать в Photoshop – лучшей программе для обработки растровых изображений. В ней рассказывается не только об инструментах, палитрах и фильтрах программы, но и о том, как на практике использовать тот или иной инструмент, правильно применять фильтры, пользоваться цветом. Книга построена на живых примерах. Постепенно осваивая их, легко научиться основам работы с графическими изображениями. А накопленный опыт поможет в дальнейшем и создавать собственные композиции, и обрабатывать фотографии и подготавливать фотоматериалы для веб-странички. Photoshop – это просто, надо только немного терпения, чуточку художественного воображения и толкового помощника, каким без сомнения станет для вас эта книга.
Автор: Луций С. А.
Другие сайты о DELPHI   |x|
TeleBase
Сайт посвещённый моей проге - TeleBase. Загляните, есть исходники..
» Оценка сайта: 3
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Для души

Хокку дня
Летнее кресло
качается само собой
в порывах метели.

Афоризмы
Когда ищут выгоду, забывают об искренности....

Фраза дня
Народ не роскошь, а средство обогащения. (Правительство)

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

И на закуску коротенький анекдот
Сын звонит домой:
- Ма, привет - папу позови!.. Па, привет - Спартак выиграл?
- Да, конечно!.. Маму позвать?!
- Угу... Ма, слышала?! Папа разрешил!!!

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

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

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