德尔福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;
最佳答案
根据 MSDN,您可以使用 GetProductInfo或WMI Win32_OperatingSystem class (请参阅 OperatingSystemSKU 描述)检测“N”版本。请注意,Windows XP 不支持这两种方法(需要 Vista 或更高版本)
要检测 Windows XP“K”版本,您可以检查注册表项,请参阅 http://support.microsoft.com/kb/922474 (对 Windows 注册表部分的更改)。
关于delphi - 如何检测Windows KN/K/N版本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6935153/