如何检测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类(请参阅OperatingSystemSKU说明)来检测"N"版本.请注意,Windows XP不支持这两种方法(需要Vista或更高版本)

要检测Windows XP"K"版本,可以查看注册表项,请参阅http://support.microsoft.com/kb/922474(Windows注册表部分的更改).