چگونه میتوان نوع ویندوز را تشخیص داد؟win98,win2000,winxp

[Delphi-Clinic]

{$IFDEF WIN32}

function GetVersionEx(lpOs : poiNTer) : BOOL; stdcall;

external 'kernel32' name 'GetVersionExA';

{$ENDIF}



procedure GetWINDOWSVersion(var Major : iNTeger;

                            var Minor : iNTeger);

var

{$IFDEF WIN32}

  lpOS, lpOS2 : POsVersionInfo;

{$ELSE}

  l : longiNT;

{$ENDIF}

begin

{$IFDEF WIN32}

   GetMem(lpOS, SizeOf(TOsVersionInfo));

   lpOs^.dwOSVersionInfoSize := SizeOf(TOsVersionInfo);

   while getVersionEx(lpOS) = false do begin

     GetMem(lpos2, lpos^.dwOSVersionInfoSize + 1);

     lpOs2^.dwOSVersionInfoSize := lpOs^.dwOSVersionInfoSize + 1;

     FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);

     lpOS := lpOs2;

   end;

   Major := lpOs^.dwMajorVersion;

   Minor := lpOs^.dwMinorVersion;

   FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);

{$ELSE}

  l := GetVersion;

  Major := LoByte(LoWord(l));

  Minor := HiByte(LoWord(l));

{$ENDIF}

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  Major : iNTeger;

  Minor : iNTeger;

begin

  GetWINDOWSVersion(Major, Minor);

  Memo1.Lines.Add(INTToStr(Major));

  Memo1.Lines.Add(INTToStr(Minor));

end;