Feststellen welche Windows-Version verwendet wird

[Portabella]

Hi,

diese Frage habe ich mir heute auch schon gestellt. Hier ist mein Code:

Delphi-Quellcode:

function TForm1.GetWindowsVersion: string;
var
  reg: TRegistry;
  version: String;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);

    version:=reg.ReadString('CurrentVersion');
    Result := version;
  finally
    reg.Free;
  end;
end;

Ich hoffe der Code hilft dir weiter,

Gruß, Diana

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]