wersja Windows'a

[cinma]

jestem w trakcie pisanie malutkiego programiku i chcialbym do niego wstawic mozliwosc wyswietlania wersji systemu operacyjnego, na ktorym zostal aktualnie uruchomiony (windows 95, 98, 2k, xp itd.)
chce to zrobic porzadnie (tzn. zeby pokazywal takie informacje jak 'OSR2' dla Win95 czy 'SE' dla Win98 ) i problem w tym, ze nigdzie nie moge znalezc dokladnych informacji o tym, jaki numer ma dana wersja (tzn. mniej wiecej wiem jaki, ale jest kilka wartosci, dla ktorych to sie nie sprawdza - szczegolnie chodzi w numery build'ow czy Stringi opisujace service pack'i)
w zwiazku z tym taka prosba: bylbym dzwieczny i brzecacy jesli zechcielibyscie sciagnac dolaczony programik (oczywiscie nie jest to zaden blaster - on odczyta dane, ktore mi sa potrzebne) i wyslac to co on tam wypisal razem z wlasciwa wersja (najlepiej odczytana z Panel sterowania -> System -> Ogolne) mi na skrzynke

z gory dzieki

[Y@nkee_PL]

WinXP z SP1 PL + ~90% obecnie dostepnych lat

[Ziele]

Błąd crc pliku rar :/ załaduj gdzieś indziej ten program i zapodaj linka...

[cinma]

Ziele napisa***322;(a)
Błąd crc pliku rar :/ załaduj gdzieś indziej ten program i zapodaj linka...

myslalem, ze ten problem z CRC forum ma juz rozwiazane, a tu

no nic, sprobuje tym razem dolaczyc zipa

p.s. nigdzie indziej nie moge wrzucic tego plika, bo nie mam zadnego ftp'a; moze ktos ma zbedne 200KB na swoim ftp'ie ?

[Ziele]

Teraz dla odmiany nieoczekiwany koniec archiwum

Ten program napisałes w Delphi?

[cinma]

Ziele napisa***322;(a)
Ten program napisałes w Delphi?

zgadza sie - dlatego powstaly plik jest dosc duzy (ponad 370KB) i chce go jakos skompresowac
teraz wrzucam exe'ka skompresowanego UPX, moze teraz sie uda

jakby nie, to trudno, prosze tylko o wypisywanie jakie numery wersji maja poszczegolne windowsy;
wiem, ze:
Windows XP - 5.1.2600
Windows 2000 - 5.0.?
Windows 2003 Server - 5.2.?
Windows NT - 4.0.? lub 3.51.?
Windows 95 - 4.0.?
Windows 98 - 4.10.?
Windows 98 SE - 4.90.?

tam gdzie jest '?' powinien byc numerek builda, ale ja ich nie znam, wiec prosze o dopisywanie jesli ktos wie
dzieki

[Ziele]

--- API GetVersionEx ---
PlatformId:   Win32 on Windows NT.
MajorVersion: 5
MinorVersion: 1
BuildNumber:  2600
CSDVersion:   'Dodatek Service Pack. 1'



--- Delphi RTL ---
PlatformId:   System is Windows NT.
MajorVersion: 5
MinorVersion: 1
BuildNumber:  2600
CSDVersion:   'Dodatek Service Pack. 1'

ja używam tej funkcji, mi wystarcza

function GetSystem: String;
 var
  OSinfo: OSVERSIONINFO;
  OS: string;
begin

 OSinfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
 GetVersionEx(OSinfo);

 case (OSinfo.dwPlatformId) of

  VER_PLATFORM_WIN32s: OS := 'WIN 3.1' ;

  VER_PLATFORM_WIN32_WINDOWS:
   case (OSinfo.dwMajorVersion + OSinfo.dwMinorVersion) of
    4: OS := 'Win 95' ;
    14: OS := 'Win 98' ;
    94: OS := 'Win Me' ;
    end;

  VER_PLATFORM_WIN32_NT:
   case (OSinfo.dwMajorVersion + OSinfo.dwMinorVersion) of
    54: OS := 'Win NT 3.51';
    4: OS := 'Win NT 4.0';
    5: OS := 'Win 2000';
    6: OS := 'Win XP';
    7: OS := 'Windows Server 2003';
    end;

  else OS := 'Nieznany';
  end;

Result := OS;

end;

[Gorzala]

.

[cinma]

Ziele napisa***322;(a)
ja używam tej funkcji, mi wystarcza

function GetSystem: String;
 var
  OSinfo: OSVERSIONINFO;
  OS: string;
begin

 OSinfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
 GetVersionEx(OSinfo);

 //  .........

end;

jak juz pisalem, chcialem zrobic te funkcje troche inteligentniejsza, tzn. zeby wiedziala ze to np. Win98SE itd.

do tego potrzeba mi wlasnie tych dokladnych wartosci buildow
gdzies w sieci znalazlem, ze 98SE mozna odroznic od zwyklego 98 tym, ze 98Se ma
OSinfo.szCSDVersion[1] = 'A'
ale u mnie nie dzialalo, bo to mialo byc jakos tak:
OSinfo.szCSDVersion = ' A ' // spacje przed i po 'A'

gdzies indziej widzialem sprawdzanie tego 98SE za pomoca wartosci builda (2222) i juz w koncu nie wiem

poza tym jest jeszcze sprawa Win95 OSR2 (tu w ogole nie wiem czy to dziala, bo nie mam jak przetestowac), wiec gdyby jeszcze ktos uzywal Win95 to bylbym wdzieczny za screen'a

[Ziele]

wiem wiem, troche to trudne ale pewnie juz ktoś zrobił do tego komponent. Tak z ciekawości do czego ci takie dokładne dane?

ps. u mnie w szkole mają jeszcze pare kompów z 95

[cinma]

Ziele napisa***322;(a)
wiem wiem, troche to trudne ale pewnie juz ktoś zrobił do tego komponent.

to wcale nie jest trudne, tylko trzeba znac dokladnie wartosci numerkow wersji

Ziele napisa***322;(a)
Tak z ciekawości do czego ci takie dokładne dane?

powiedzmy, ze jestem perfekcjonista (juz kilka razy wczesniej przymierzalem sie, zeby to zrobic, tylko zawsze konczylem wlasnie na braku danych o wersjach)
(a konkretnie to jestem w trakcie robienia malego utilsu na zyczenie znajomego - jak chcesz to Ci podesle jak dokoncze - a to info o wersji systemu to mial byc taki bajer )

Ziele napisa***322;(a)
ps. u mnie w szkole mają jeszcze pare kompów z 95

wlasciwie to u mnie na uczelni chyba tez znajde jakies 95-ki

[Ricki]

Windows 2003 server standard PL