Краткая информация о системе

Song — Sun, 01 Feb 2004 16:08:29 +0000

Song: [doHTML]Часто при создании систем привязки программ к компьютеру или окон типа 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;

[/doHTML]

Форум на Исходниках.RU

Краткая информация о системе