unit hiComputerInfo;

interface

uses Kol,Share,Windows,Debug;

type
  THIComputerInfo = class(TDebug)
   private
   public
    _prop_MaskCPU:string;
	_prop_MaskOS:string;

    procedure _var_UserName(var _Data:TData; Index:word);
    procedure _var_CompName(var _Data:TData; Index:word);
	procedure _var_CPU(var _Data:TData; Index:word);
    procedure _var_OS(var _Data:TData; Index:word);
  end;

implementation

const UNLEN = 256;

procedure THIComputerInfo._var_UserName;
var Size:cardinal;
    s:array[0..UNLEN] of char;
begin
    Size := length(s);
    GetUserName(s,Size);
    dtString(_Data,s);
end;

procedure THIComputerInfo._var_CompName;
var Size:cardinal;
    s:array[0..MAX_COMPUTERNAME_LENGTH] of char;
begin
    Size := length(s);
    GetComputerName(s,Size);
    dtString(_Data,s);
end;
procedure THIComputerInfo._var_CPU;
var lpSystemInfo:_SYSTEM_INFO;
    s:string;
begin
   GetSystemInfo(lpSystemInfo);
   s := _prop_MaskCPU;
   Replace(s,'%t',Int2Str(lpSystemInfo.dwProcessorType));
   Replace(s,'%n',Int2Str(lpSystemInfo.dwNumberOfProcessors));
   dtString(_Data,s);
end;
procedure THIComputerInfo._var_OS;
var VI: TOSVersionInfo;
    s:string;
begin
   VI.dwOSVersionInfoSize:=SizeOf(VI);
   GetVersionEx(VI);
   s := _prop_MaskOS;
   Replace(s,'%1',Int2Str(VI.dwMajorVersion));
   Replace(s,'%2',Int2Str(VI.dwMinorVersion));
   dtString(_Data,s);
end;

end.

[About]
Version=1.1
Author=Dilma (Extended by Borka)

[Type]
Class=Element
Info=Некоторая информация о компьютере

[Property]
MaskCPU=Маска строки информации для точки CPU: %t - тип процессора, %n - число процессоров на мат. плате|2|Type: x%t Processor:%n
MaskOS=Маска строки информации для точки OS: %1 - старшая цифра версии, %2 - младшая цифра версии. Windows 95 - 4.0, Windows 98 - 4.10, Windows Me - 4.90, Windows 2000 - 5.0, Windows XP - 5.1, Windows Vista - 6.0, Windows 7 - 6.1|2|%1.%2

[Methods]
UserName=Имя текущего пользователя|3|2
CompName=Имя текущего компьютера|3|2
CPU=Тип процессора|3|2
OS=Версия ОС|3|2