سورس کدی برای تشخیص نوع ویندوز

سلام
نیاز به یه سورس کد برای تشخیص نوع ویندوز دارم
کسی لطف میکنه این سورس رو برام بذاره
پیشاپیش متشکرم

سلام.
تو دلفی XE2 و نسخه های جدیدتر به سادگی میشه با TOSVersion اطلاعات لازم رو بدست اورد.

[PHP]
OSVER: TOSVersion
Label1.Caption := IntToStr(OSVER.Major);
Label2.Caption := OSVER.ToString;
[/PHP]