Delphi Tips & Tricks

procedure TForm1.Button1Click(Sender: TObject);
var
  osInfo: OSVERSIONINFO;
  ver :string;
begin
   osInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
   if GetVersionEx(osInfo) then begin
    with osinfo do begin
     case dwPlatformId of
     VER_PLATFORM_WIN32_NT: //Windows NT/2000/XP
     begin
      if dwMajorVersion <=4 then
        ver := 'WinNT'
      else if (dwMajorVersion =5) and (dwMinorVersion =0) then
        ver := 'Win2000'
      else if (dwMajorVersion =5) and (dwMinorVersion =1) then
          ver := 'WinXP'
      else
        ver := 'Unknown';
        end;
     VER_PLATFORM_WIN32_WINDOWS:  //Windows 9x/ME
        begin
          if (dwMajorVersion =4) and (dwMinorVersion =0) then
            ver := 'Win95'
          else if (dwMajorVersion =4) and (dwMinorVersion =10) then
          begin
            if szCSDVersion[1] = 'A' then
              ver := 'Win98SE'
            else
              ver := 'Win98';
          end
          else if (dwMajorVersion =4) and (dwMinorVersion =90) then
            ver := 'WinME' 
          else
            ver :='Unknown';
        end;
      else
        ver := 'Unknown';
    end; //case
   end; //with
  end
  else
    ver := 'Unknown';

    showmessage(ver);
end;