Class TscSysInfo (unit scSysInfo) |
Inherits from
TComponent
constructor Create(AOwner:TComponent);
- SYS Info Class
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 := '';
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
event OnDeviceArrival : TPnPDeviceChangeEvent
Events
event OnDeviceRemoved : TPnPDeviceChangeEvent
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;
constructor Create(AOwner:TComponent);
SYS Info Class
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 := '';
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
event OnDeviceArrival : TPnPDeviceChangeEvent
Events
event OnDeviceRemoved : TPnPDeviceChangeEvent
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;