Как обнаружить Windows KN / K / N издание

Question

Delphi Xe, Win7x64

Как обнаружить неполную версию Windows N или K (Win XpSp3-Win7x64)?Без IE, Wmp.

Пример:

Function isWinKNedition:bool;
begin
result:=?????
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
if isWinKNedition then begin showmessage('This program can work only on full versions OS Windows');Halt;end;
end;

Answer 1

В соответствии с MSDN вы можете использовать GetProductInfo или WMI Win32_OperatingSystem class (см. Описание OperatingSystemSKU) для обнаружения выпусков "N".Обратите внимание, что оба метода не поддерживаются Windows XP (требуется Vista или выше)

Чтобы обнаружить выпуски Windows XP «K», вы можете проверить раздел реестра, см. http://support.microsoft.com/kb/922474 (Изменения в разделе реестра Windows).).

Answer 2

Попробуйте использовать GetVersionEx WinApi, он предоставляет информацию о версии операционной системы, включая информацию о ServicePack.

отметьте эту статью