[user717]

Здравствуйте господа. Подскажите как определить Серверную систему? в Delphi 7.
Погуглил, нашел варианты определения версии системы (
здесь ), но при использовании почему-то Win2003sp2 определяется как winXp64bit,win2008 определяется как Vista.
Другие варианты устарели, т.к. надо отличить сервер win2003server, win2008server, win2000server, от vista,windows7, xp_sp3. и др.
Подскажите пожалуйста как решить вопрос?

------------
Глупый вопрос был =)..
сам отвечаю:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function OS:boolean; var Reg:TRegistry;     NameOS:string; begin   result:=true;   Reg:=TRegistry.Create;   Reg.RootKey:=HKEY_LOCAL_MACHINE;   Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);   NameOS:=Reg.ReadString('ProductName');    if (pos('erver',NameOS)>0)  then    begin    result:=false;    end;   Reg.Free; end;

Если кто знает другой способ, буду признателен.