![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте господа. Подскажите как определить Серверную систему? в Delphi 7.
Погуглил, нашел варианты определения версии системы ( здесь ), но при использовании почему-то Win2003sp2 определяется как winXp64bit,win2008 определяется как Vista. Другие варианты устарели, т.к. надо отличить сервер win2003server, win2008server, win2000server, от vista,windows7, xp_sp3. и др. Подскажите пожалуйста как решить вопрос? ------------ Глупый вопрос был =).. сам отвечаю: Код:
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; Если кто знает другой способ, буду признателен. Последний раз редактировалось user717, 17.04.2010 в 08:36. |