| Class TscSysInfo (unit scSysInfo) |
TComponent
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure HookWndProc(var AMsg: TMessage);
procedure Update;
procedure HookWin;
procedure UnhookWin;
procedure SetFileName(value: string);| 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
event OnDeviceRemoved : TPnPDeviceChangeEvent| Variables |
NewWndProc : Pointer;
OldWndProc : TFarProc;
FCPUInfo : TscCPUInfo;
FDiskInfo : TscDiskInfo;
FDriveC : string;
FErrorList : TStringList;
FFileName : string;
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 : TPnPDeviceChangeEventEvents
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;