Не кажется ли вам символичным, что праздник мелких пакостей и легких ужасов в Штатах назывется "Хелло, 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'
ELSEIF 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 может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.