Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +
VER_PLATFORM_WIN32_NT: OSName := 'Windows NT';
VER_PLATFORM_WIN32_WINDOWS: OSName := 'Windows 95';
VER_PLATFORM_WIN32s: OSName := 'Win32s';
if Windows.GetVersionEx( VersionInfo ) then
VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );
// устанавливаем размер записи
function GetWinVersion: string;
- Вашу жену зовут Наташа, детей-Юля и Павлик. Вы все еще хотите выйти из Windows?!
Сообщение перед выключением компьютера:
Как выключить компьютер с любой версией Windows
Отправить форму поиска
Введите условия поиска
Delphi FAQ - Часто задаваемые вопросы
Благодарю за поддержку!
Как выключить компьютер с любой версией Windows - Delphi Sources FAQ
Комментариев нет:
Отправить комментарий