Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: август 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Определение базовой системной информации

Не кажется ли вам символичным, что праздник мелких пакостей и легких ужасов в Штатах назывется "Хелло, Win"?

Часто при создании систем привязки программ к компьютеру или окон типа System Info или About Box необходимо определить данные о пользователе и о системе. Это можно сделать следующим образом (из примеров по Delphi - программа COA):


 ...
  Buffer : Array[0..30] of Char;    // Буфер под ASCIIZ строку
 begin
  // Открыли библиотеку User
  hInstUser := LoadLibrary('USER');
  LoadString(hInstUser, 514, Buffer, 30);
  // Имя пользователя
  LabelUserName.Caption := StrPas(Buffer);
  LoadString(hInstUser, 515, Buffer, 30);
  FreeLibrary(hInstUser);
  // Компания
  LabelCompName.Caption := StrPas(Buffer);
  WinVer := GetVersion;
  // Версия Windows
  LabelWinVer.Caption := Format('Windows %u.%.2u',
         [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]);
  // Версия DOS
  LabelDosVer.Caption := Format('DOS %u.%.2u',
         [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]);
  WinFlags := GetWinFlags;
  // Режим
  IF WinFlags AND WF_ENHANCED > 0 THEN
    LabelWinMode.Caption := '386 Enhanced Mode'
  ELSE IF WinFlags AND WF_PMODE > 0 THEN
    LabelWinMode.Caption := 'Standard Mode'
  ELSE LabelWinMode.Caption := 'Real Mode';
  // Сопроцессор
  IF WinFlags AND WF_80x87 > 0 THEN
   ValueMathCo.Caption := 'Present'
  ELSE ValueMathCo.Caption := 'Absent';
 
  // Свободно ресурсов
  Fmt := GetFreeSystemResources(GFSR_SYSTEMRESOURCES);
  ValueFSRs.Caption := Format('%d%% Free', [Fmt1]);
  // Свободно памяти
  ValueMemory.Caption := FormatFloat(',#######', MemAvail DIV
 1024) + ' KB Free';
 end;
 
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS