как выключить компьютер delphi

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