Class TscSysInfo (unit scSysInfo)

Inherits from

TComponent

Constructors


constructor Create(AOwner:TComponent);

SYS Info Class


Functions

destructor Destroy;

Aggancia la finestra in cui è inserito

procedure HookWndProc(var AMsg: TMessage);

UnHookWin

procedure Update;

HookWndProc

procedure HookWin;

procedure TscSysInfo.

procedure UnhookWin;

HookWin

procedure SetFileName(value: string);

DiskInfo if DiskSize(3) <> -1 then FDriveC := format('%f Mb', [DiskSize(3) / _Mb]) else FDriveC := '';

Properties

property CPU : TscCPUInfo


property Disk : TscDiskInfo


property DriveC : string


property FileName : string


property Language : TscLanguage


property Memory : TscMemoryInfo


property Name :


property Resources : TscResources


property Tag :


property UpdateSI : Cardinal


property Version : TscVersionInfo


property Windows : TscRegInfo


property DebugList : TStringList


Events

event OnDeviceArrival : TPnPDeviceChangeEvent

Events

event OnDeviceRemoved : TPnPDeviceChangeEvent


Variables

NewWndProc : Pointer;


OldWndProc : TFarProc;

procedure Loaded; override;

FCPUInfo : TscCPUInfo;


FDiskInfo : TscDiskInfo;


FDriveC : string;


FErrorList : TStringList;


FFileName : string;

FDisk : PChar;

FLanguage : TscLanguage;


FMemoryInfo : TscMemoryInfo;


FOnDeviceArrival : TPnPDeviceChangeEvent;


FOnDeviceRemoved : TPnPDeviceChangeEvent;


FOwnerHandle : THandle;


FRegInfo : TscRegInfo;


FResources : TscResources;


FUpdate : Cardinal;


FVersionInfo : TscVersionInfo;



Constructors


constructor Create(AOwner:TComponent);

SYS Info Class


Functions


destructor Destroy;

Aggancia la finestra in cui è inserito


procedure HookWndProc(var AMsg: TMessage);

UnHookWin


procedure Update;

HookWndProc


procedure HookWin;

procedure TscSysInfo.Loaded; begin Update; end; procedure TscSysInfo.SetStringValue(value: string); begin end;


procedure UnhookWin;

HookWin


procedure SetFileName(value: string);

DiskInfo if DiskSize(3) <> -1 then FDriveC := format('%f Mb', [DiskSize(3) / _Mb]) else FDriveC := '';


Properties


property CPU : TscCPUInfo


property Disk : TscDiskInfo


property DriveC : string


property FileName : string


property Language : TscLanguage


property Memory : TscMemoryInfo


property Name :


property Resources : TscResources


property Tag :


property UpdateSI : Cardinal


property Version : TscVersionInfo


property Windows : TscRegInfo


property DebugList : TStringList


Events


event OnDeviceArrival : TPnPDeviceChangeEvent

Events


event OnDeviceRemoved : TPnPDeviceChangeEvent


Variables


NewWndProc : Pointer;


OldWndProc : TFarProc;

procedure Loaded; override;


FCPUInfo : TscCPUInfo;


FDiskInfo : TscDiskInfo;


FDriveC : string;


FErrorList : TStringList;


FFileName : string;

FDisk : PChar;


FLanguage : TscLanguage;


FMemoryInfo : TscMemoryInfo;


FOnDeviceArrival : TPnPDeviceChangeEvent;


FOnDeviceRemoved : TPnPDeviceChangeEvent;


FOwnerHandle : THandle;


FRegInfo : TscRegInfo;


FResources : TscResources;


FUpdate : Cardinal;


FVersionInfo : TscVersionInfo;