Прочитать свойства системы

Содержание материала

Страница 2 из 2

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

Code:

...

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;

Новые статьи

Как получить версию Windows?

Прочитать свойства системы