Código Para Sistemaoperacional

[Paulo Nobre]

Como seria um código para detectar o tipo de sitema operacional?

Paulo Nobre

[CorN_Sk8]

ai uma funcao, coloque na clausula Uses Registry;

function VerSaoWindows: string; stdcall;
var 
  VerInfo: TOsversionInfo; 
  PlatformId, VersionNumber: string; 
  Reg: TRegistry;
begin 
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo); 
  GetVersionEx(VerInfo); 
  // Detect platform 
  Reg := TRegistry.Create; 
  Reg.RootKey := HKEY_LOCAL_MACHINE; 
  case VerInfo.dwPlatformId of 
    VER_PLATFORM_WIN32s: 
      begin 
        // Registry (Huh? What registry?) 
        PlatformId := 'Windows 3.1'; 
      end; 
    VER_PLATFORM_WIN32_WINDOWS: 
      begin 
        // Registry 
        Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False); 
        PlatformId    := Reg.ReadString('ProductName'); 
        VersionNumber := '( ' + Reg.ReadString('VersionNumber') + ' )';
      end; 
    VER_PLATFORM_WIN32_NT: 
      begin 
        // Registry 
        Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
        if Reg.ReadString('CSDVersion') = '' then
          Reg.WriteString('CSDVersion','Sem Atualização');
        PlatformId    := Reg.ReadString('ProductName') + ' ( ' + Reg.ReadString('CSDVersion') + ' )';          
        VersionNumber := ' 4( 15' + Reg.ReadString('CurrentVersion') + ' - ' +
          Reg.ReadString('CurrentBuildNumber') + ' )';
      end;
  end;
  Reg.Free; 
  Result := PlatformId + ' ' + VersionNumber;
end;

[Paulo Nobre]

valeu Corn, pela dica.

Paulo Nobre