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

Советы » Компьютер » Определение системной информации

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

Procedure

GetInfo; Var


WinVer, WinFlags : LongInt; { Версия Windows и флаги } hInstUser, Fmt : Word; { Дескриптор } Buffer : ARRAY[0..30] OF Char; { Буфер под ASCIIZ строку } begin


hInstUser := LoadLibrary('USER'); { Открыли библиотеку User } LoadString(hInstUser, 514, Buffer, 30); LabelUserName.Caption := StrPas(Buffer); { Имя пользователя } LoadString(hInstUser, 515, Buffer, 30); FreeLibrary(hInstUser);
LabelCompName.Caption := StrPas(Buffer); { Компания } WinVer := GetVersion;
LabelWinVer.Caption := Format('Windows %u.%.2u', { Версия Windows } [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]); LabelDosVer.Caption := Format('DOS %u.%.2u', { Версия DOS } [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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com