در ویندوز 98 یا Xp هستیم؟

[soroush_vs]

چطوری میشه فهخمید که الان برنامه در ویندوز 98 یا Xp اجرا شده؟
لطفا اگه کسی اطلاعی داره بگه صواب داره!

[saeed_d]

سلام


procedure TForm1.Button1Click(Sender: TObject);
var
Result : string ;
begin
Case Win32Platform of
ver_Platform_Win32_NT:
result := 'Your using either Windows NT\2k\XP' + chr(13) + Format('Major Version: %d', [Win32MajorVersion]);
Ver_Platform_Win32_Windows:
Result := 'Your using Windows 9x' + Chr(13) + Format('Major Version: %d', [Win32MajorVersion]);
Ver_Platform_win32s:
Result := 'Your using something shitty like 3.1 ' + chr(13) + Format('Major Version: %d', [Win32MajorVersion]);
else
ShowMessage('Unknown');
end;
ShowMessage(Result);
end;

[FARHAD_KIANI2003]

عالیه بیشتر توضیح بده

[saeed_d]

http://www.barnamenevis.org/forum/showthread.php?t=40833