Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: OS Version ermitteln
30. Nov 2010, 14:58
"hathor" hat unter
http://www.delphi-forum.de/topic_Wie...m_99738,0.html etwas gepostet was funktioniert, letzter Post.
EDIT:
Damit könnte das Ende Deiner Prozedur IMHO so aussehen:
Delphi-Quellcode:
Result := Result + ' Build: ' + IntToStr(osvi.dwBuildNumber);
if IsWindows64 then Result := Result + ' 64-bit' else Result := Result + ' 32-bit';
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (30. Nov 2010 um 15:04 Uhr)
|