2

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;
4

2 に答える 2

9

MSDNによると、GetProductInfoまたはWMI Win32_OperatingSystemクラス（OperatingSystemSKUの説明を参照）のいずれかを使用して、「N」エディションを検出できます。どちらの方法もWindowsXPではサポートされていないことに注意してください（Vista以降が必要です）

Windows XP "K"エディションを検出するには、レジストリキーを確認できます。http：//support.microsoft.com/kb/922474（Windowsレジストリセクションへの変更）を参照してください。

于 2011-08-04T04:39:29.537 に答える
0

WinApiを使用してみてくださいGetVersionEx。これにより、ServicePack情報を含むオペレーティングシステムに関するバージョン情報が提供されます。

この記事をチェックしてください

于 2011-08-04T04:22:32.280 に答える