Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 294

•  TDictionary Custom Sort  6 340

•  Fast Watermark Sources  6 129

•  3D Designer  9 061

•  Sik Screen Capture  6 450

•  Patch Maker  6 866

•  Айболит (remote control)  6 852

•  ListBox Drag & Drop  5 727

•  Доска для игры Реверси  96 585

•  Графические эффекты  7 069

•  Рисование по маске  6 369

•  Перетаскивание изображений  5 241

•  Canvas Drawing  5 614

•  Рисование Луны  5 313

•  Поворот изображения  4 863

•  Рисование стержней  3 449

•  Paint on Shape  2 708

•  Генератор кроссвордов  3 587

•  Головоломка Paletto  2 876

•  Теорема Монжа об окружностях  3 684

•  Пазл Numbrix  2 417

•  Заборы и коммивояжеры  3 098

•  Игра HIP  2 059

•  Игра Go (Го)  1 983

•  Симулятор лифта  2 346

•  Программа укладки плитки  2 046

•  Генератор лабиринта  2 504

•  Проверка числового ввода  2 192

•  HEX View  2 517

•  Физический маятник  2 133

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как получить информацию о BIOS в Windows NT, 2000, XP




В NT/2000/XP не получится прочитать значения прямо из BIOS, однако, ничего не мешает нам считать нужные значения из реестра.


procedure TBIOSInfo.GetRegInfoWinNT;
var
  Registryv: TRegistry;
  RegPath: string;
  sl: TStrings;
begin
  Params.Clear;
  RegPath := '\HARDWARE\DESCRIPTION\System';
  registryv := tregistry.Create;
  registryv.rootkey := HKEY_LOCAL_MACHINE;
  sl := nil;
  try
    registryv.Openkey(RegPath, false);
    ShowMessage('BIOS Date: ' + RegistryV.ReadString('SystemBiosDate'));
    sl := ReadMultirowKey(RegistryV, 'SystemBiosVersion');
    ShowMessage('BIOS Version: ' + sl.Text);
  except
  end;
  Registryv.Free;
  if Assigned(sl) then
    sl.Free;
end;

На всякий пожарный:


// следующий метод получает многострочные значения из реестра
// и преобразует их в TStringlist

function ReadMultirowKey(reg: TRegistry; Key: string): TStrings;
const
  bufsize = 100;
var
  i: integer;
  s1: string;
  sl: TStringList;
  bin: array[1..bufsize] of char;
begin
  try
    result := nil;
    sl := nil;
    sl := TStringList.Create;
    if not Assigned(reg) then
      raise Exception.Create('TRegistry object not assigned.');
    FillChar(bin, bufsize, #0);
    reg.ReadBinaryData(Key, bin, bufsize);
    i := 1;
    s1 := '';
    while i < bufsize do
    begin
      if ord(bin[i]) >= 32 then
        s1 := s1 + bin[i]
      else
      begin
        if Length(s1) > 0 then
        begin
          sl.Add(s1);
          s1 := '';
        end;
      end;
      inc(i);
    end;
    result := sl;
  except
    sl.Free;
    raise;
  end;
end;





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

Non Rectangular Windows

Windows Transparency

Windows Alpha-channel

Progress Windows

 

Popup Info Windows

Windows Sorting

RawWrite for Windows

Windows Desktops

 

Сообщения между процессами Windows




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте