Código Delphi [-] var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo); GetVersionEx(VersionInfo); ShowMessage(VersionInfo.szCSDVersion); end;
var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo); GetVersionEx(VersionInfo); ShowMessage(VersionInfo.szCSDVersion); end;