|
Вопрос # 4 542/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Как определить версию Windows и записать её в Label?(Windows XP или Windows 7 ...)
И как определить имя учётной записи и записать её в Label?
 |
Вопрос задал: Andrew_Cyber (статус: Посетитель)
Вопрос отправлен: 29 августа 2010, 22:38
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: bugmenot
модуль SysUtils при инициализации вызывает <a href="http://msdn.microsoft.com/en-us/library/ms724451(VS.85).aspx">GetVersionEx</a> и заполняет глобальные переменные, указанные в приложении. Для определения <i>названия</i> версии Windows будет полезна табличка из секции Remarks описания структуры <a href="http://msdn.microsoft.com/en-us/library/ms724834(VS.85).aspx">OSVERSIONINFO</b>
имя пользователя возвращает функция <a href="http://msdn.microsoft.com/en-us/library/ms724432(VS.85).aspx">GetUserName</a>
Приложение: Переключить в обычный режим- { Win32 platform identifier. This will be one of the following values:
-
- VER_PLATFORM_WIN32s
- VER_PLATFORM_WIN32_WINDOWS
- VER_PLATFORM_WIN32_NT
-
- See WINDOWS.PAS for the numerical values. }
-
- Win32Platform: Integer = 0;
-
- { Win32 OS version information -
-
- see TOSVersionInfo.dwMajorVersion/dwMinorVersion/dwBuildNumber }
-
- Win32MajorVersion: Integer = 0;
- Win32MinorVersion: Integer = 0;
- Win32BuildNumber: Integer = 0;
-
 |
Ответ отправил: bugmenot (статус: 3-ий класс)
Время отправки: 30 августа 2010, 03:43
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 30 августа 2010, 17:48; участников в обсуждении: 3.
|
|
bugmenot (статус: 3-ий класс), 30 августа 2010, 03:45 [#1]:
еще одна переменная заполняется:
<code>
{ Win32 OS extra version info string -
see TOSVersionInfo.szCSDVersion }
Win32CSDVersion: string = '';
</code>
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
min@y™ (статус: Доктор наук), 30 августа 2010, 13:01 [#2]:
Есть готовый модуль dwWinSystem.pas в пакете Delphi Works. В этом модуле есть функция dwGetOS(), она работает. Но, т.к. она устарела, надо её немного обработать напильником, чтобы она определяла Windows 7.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
SOA (статус: Посетитель), 30 августа 2010, 17:48 [#3]:
Возможно в данном вопросе также могут помочь переменные среды, которые можно увидеть в cmd если набрать команду set.
Возможно стоит копать в их сторону.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
