Salut à tous !  
Sur une boîte à propos, je voudrais afficher la version de windows (95, 98, Me, NT, 2000, XP) qui est installée sur la machine    
Comment faire, merci d'avance

const  
{ operating system constants }  
cOsUnknown = -1;  
cOsWin95 = 0;  
cOsWin98 = 1;  
cOsWin98SE = 2;  
cOsWinME = 3;  
cOsWinNT = 4;  
cOsWin2000 = 5;  
cOsWhistler = 6;  
 
 
function GetOperatingSystem : integer;  
var  
  osVerInfo : TOSVersionInfo;  
  majorVer, minorVer : Integer;  
 
 
begin  
  result := cOsUnknown;  
{ set operating system type flag }  
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
  if GetVersionEx(osVerInfo) then  
  begin  
    majorVer := osVerInfo.dwMajorVersion;  
    minorVer := osVerInfo.dwMinorVersion;  
    case osVerInfo.dwPlatformId of VER_PLATFORM_WIN32_NT : { Windows NT/2000 }  
    begin  
      if majorVer <= 4 then  
      result := cOsWinNT  
      else if (majorVer = 5) AND (minorVer= 0) then  
      result := cOsWin2000  
      else if (majorVer = 5) AND (minorVer = 1) then  
      result := cOsWhistler  
      else  
      result := cOsUnknown;  
    end;  
    VER_PLATFORM_WIN32_WINDOWS : { Windows 9x/ME }  
    begin  
    if (majorVer = 4) AND (minorVer = 0) then  
    result := cOsWin95  
    else if (majorVer = 4) AND (minorVer = 10) then  
    begin  
    if osVerInfo.szCSDVersion[1] = 'A' then  
    result := cOsWin98SE  
    else  
    result := cOsWin98;  
    end  
    else if (majorVer = 4) AND (minorVer = 90) then  
    result := cOsWinME  
    else  
    result := cOsUnknown;  
    end;  
  else  
  result := cOsUnknown;  
  end;  
  end  
  else  
  result := cOsUnknown;  
end;  
 
procedure TForm1.Button1Click(Sender: TObject);  
begin  
  ShowMessage(IntToStr(GetOperatingSystem));  
end;  
 
Merci FOBEC  
 

impressionné  
 
Merci bcq

Thander a écrit a écrit : impressionné     Merci bcq

   
Y a vraiment pas de quoi....

Si y'a de quoi  
J'ai vraiment galéré avant d'avoir une réponse aussi précise  
Merci encore

pour la suite : va voir les bons sites Delphi (cf signature)
sinon avec google et une recherche du type : http://www.google.fr/search?q=vers [...] l=fr&meta=
ou http://groups.google.fr/groups?q=v [...] a=N&tab=wg
 
tu aurais trouvé ton bonheur je pense....
Quand G lu ta question je ne connaissais pas la réponse... et je ne la connais tjs.... mais je savais où été la solution   C ça qui compte
 

[jfdsdjhfuetppo]--Message édité par [SDF]Poire--[/jfdsdjhfuetppo]

Merci encore [sdf]poire, tes liens sont très intéressants  
A propos, moi aussi Delphi