[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