Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Windows Name   Найти похожие ветки 

← →
Khabibulin   (2004-09-30 06:25) [0]

Как определить версию (Название) операционной системмы Microsoft Windows (только не через реестр!).

---

← →
easy ©   (2004-09-30 07:48) [1]

http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622288&n=15

---

← →
grom   (2004-09-30 19:52) [2]

procedure TForm1.Button1Click(Sender: TObject);
var dwVersion: DWord;
   dwWindowsMajorVersion,dwWindowsMinorVersion, dwBuild: Word;
   S: string;
begin
dwVersion := GetVersion;
dwWindowsMajorVersion :=  Byte(Word(dwVersion));
dwWindowsMinorVersion :=  HiByte(Word(dwVersion));
if (dwVersion < $80000000)
then begin
 S := "Windows NT";
 dwBuild := HiWord(dwVersion);
end
else if (dwWindowsMajorVersion < 4)
 then begin
  S := "Win32s";
  dwBuild := HiWord(dwVersion) and $7FFFFFFF;
 end
 else begin
  S := "Windows 9.x";
  dwBuild :=  0;
 end;
S := S + ", &#226;&#229;&#240;&#241;&#232;&#255; " + IntToStr(dwWindowsMajorVersion) + "." +
      IntToStr(dwWindowsMinorVersion) + ", &#236;&#238;&#228;&#232;&#244;&#232;&#234;&#224;&#246;&#232;&#255; " +
      IntToStr(dwBuild);
Edit1.Text := S;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.042 c