چطور می تونیم تشخیص بدیم که در چه ویندوزی هستیم

[دنیای دلفی]

من کدی می خواهم که مشخص کند که کاربر در چه Windows است و

ٌWindows 98
Windows Me
Windows 2000
Windows XP

اگر لطف کنید ممنون می شم .

:تشویق: :flower: :موفق:

[Delphi Skyline]

شما می توانید از Registry استفاده کنید . البته حالا من جاشو یادم رفته .

[esi022]

http://www.swissdelphicenter.ch/en/showcode.php?id=1126

[دنیای دلفی]

:flower:

[بابک زواری]

از API ها میتونی استفاده کنی

[محمد میرمصطفی]

The GetVersionEx function obtains extended information about the version of the operating system that is currently running.

BOOL GetVersionEx(

LPOSVERSIONINFO lpVersionInformation // pointer to version information structure
);


Parameters

lpVersionInformation

Pointer to an OSVERSIONINFO data structure that the function fills with operating system version information.
Before calling the GetVersionEx function, set the dwOSVersionInfoSize member of the OSVERSIONINFO data structure to sizeof(OSVERSIONINFO).



Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError. The function fails if you specify an invalid value for the dwOSVersionInfoSize member of the OSVERSIONINFO structure.

Remarks

The GetVersionEx function supersedes the GetVersion function and is the preferred method for obtaining operating system version number information. New applications should use the GetVersionEx function rather than the GetVersion function.