Forum CDRinfo.pl - wersja Windows'a

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Off topic (https://forum.cdrinfo.pl/f5/)

- - wersja Windows'a (https://forum.cdrinfo.pl/f5/wersja-windowsa-25894/)

Ricki

28.10.2003 22:11

Ilość załączników: 1

Windows 2003 server standard PL

cinma

23.09.2003 21:00

Cytat:

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

Cytat:

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 :) )

Cytat:

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

Ziele

23.09.2003 20:38

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

23.09.2003 20:24

Cytat:

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

Kod:

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

Gorzala

23.09.2003 19:42

Ilość załączników: 1

Ziele

23.09.2003 19:20

Kod:

--- 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 ;)

Kod:

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;

cinma

23.09.2003 12:06

Ilość załączników: 1

Cytat:

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

23.09.2003 01:57

Teraz dla odmiany nieoczekiwany koniec archiwum ;)

Ten program napisałes w Delphi?

cinma

23.09.2003 01:15

Ilość załączników: 1

Cytat:

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

23.09.2003 00:41

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

Y@nkee_PL

23.09.2003 00:17

Ilość załączników: 1

WinXP z SP1 PL + ~90% obecnie dostepnych lat

cinma

23.09.2003 00:10

wersja Windows'a

Ilość załączników: 1

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

Wszystkie czasy w strefie CET. Aktualna godzina: 02:12.