Информация об OS и о количестве памяти для окна About

Из советов инженера технической поддержки Microsoft. Если вы проснулись с большого бодуна и не помните кто вы такой, как вас зовут и где вы работаете, попробуйте сделать следующее:
1. Включите компьютер.
2. Дождитесь загрузки Windows.
3. Дважды кликните по иконке "My computer".
4. В главном меню выберите "Help/About Windows".
5. Прочитайте, что написано под строчкой "This product is licensed to."

type
  TAboutForm = class(TForm)
  OS: TLabel;
  Mem: TLabel;

...

procedure TAboutForm.GetOSInfo;
var
  Platform: string;
  BuildNumber: Integer;
begin
  case Win32Platform of
    VER_PLATFORM_WIN32_WINDOWS:
    begin
      Platform := 'Windows 95';
      BuildNumber := Win32BuildNumber and $0000FFFF;
    end;
    VER_PLATFORM_WIN32_NT:
    begin
      Platform := 'Windows NT';
      BuildNumber := Win32BuildNumber;
    end;
    else
    begin
      Platform := 'Windows';
      BuildNumber := 0;
    end;
  end;
  if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Win32CSDVersion = '' then
      OS.Caption := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion, Win32MinorVersion, BuildNumber])
    else
      OS.Caption := Format('%s %d.%d (Build %d: %s)', [Platform, Win32MajorVersion, Win32MinorVersion, BuildNumber, Win32CSDVersion]);
  end
  else
    OS.Caption := Format('%s %d.%d', [Platform, Win32MajorVersion, Win32MinorVersion])
end;

procedure TAboutForm.InitializeCaptions;
var
  MS: TMemoryStatus;
begin
  GetOSInfo;
  MS.dwLength := SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  Mem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys div 1024);
end;

Недавно добавленные исходники
• Animation Loaders 716 • DeLiKaTeS Tetris (Тетрис) 5 713 • TDictionary Custom Sort 7 668 • Fast Watermark Sources 7 354 • 3D Designer 10 567 • Sik Screen Capture 7 883 • Patch Maker 8 110 • Айболит (remote control) 8 163 • ListBox Drag & Drop 6 959 • Доска для игры Реверси 100 200 • Графические эффекты 8 234 • Рисование по маске 7 623 • Перетаскивание изображений 6 225 • Canvas Drawing 6 590 • Рисование Луны 6 517 • Поворот изображения 5 688 • Рисование стержней 4 613 • Paint on Shape 3 314 • Генератор кроссвордов 4 299 • Головоломка Paletto 3 443 • Теорема Монжа об окружностях 4 261 • Пазл Numbrix 2 761 • Заборы и коммивояжеры 3 670 • Игра HIP 2 473 • Игра Go (Го) 2 462 • Симулятор лифта 2 865 • Программа укладки плитки 2 298 • Генератор лабиринта 3 029 • Проверка числового ввода 2 527 • HEX View 2 938

Информация об OS и о количестве памяти для окна About

Похожие по теме исходники