مشخص کردن نوع سیستم عامل

[dokneh]

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;