در ویندوز 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/sh...ad.php?t=40833