Skip to content

README.md

Latest commit

 

History

History
328 lines (270 loc) · 10.9 KB

README.md

File metadata and controls

328 lines (270 loc) · 10.9 KB

TSysInfo - Delphi System Information Component

A comprehensive Delphi VCL component that provides detailed information about computer hardware, operating system, and system directories using Windows API.

Features

Hardware Information

  • CPU Information

    • CPU Name, Vendor, Identifier
    • CPU Speed (MHz)
    • Number of processors/cores
    • CPU Architecture (x86, x64, ARM, ARM64)

  • Memory Information

    • Total physical memory
    • Available memory
    • Memory load percentage
    • Page file size (total and free)

  • Mainboard Information

    • Manufacturer
    • Product name
    • BIOS Vendor, Version, and Date

  • Disk Information

    • List of all drives (A-Z)
    • Drive letter, type (Fixed, Removable, Network, CD-ROM, RAM Disk)
    • Volume label and file system
    • Total and free space
    • Serial number

System Directories

  • Windows Directory
  • System Directory
  • Temp Directory
  • Program Files Directory
  • Program Files (x86) Directory
  • Common Files Directory

User Directories

  • Desktop
  • Documents
  • Music
  • Pictures
  • Videos
  • Downloads
  • Start Menu
  • Startup
  • User Profile Directory

Application Data Directories

  • AppData (Roaming)
  • Local AppData
  • Common AppData (All Users)

System Information

  • Current user name
  • Computer name
  • User domain
  • Windows version and build number
  • Windows product name
  • System uptime (in milliseconds)
  • Is running as administrator
  • Is 64-bit operating system
  • Is 64-bit process

Installation

Method 1: Installing via IDE

  1. Open Delphi IDE
  2. Open the runtime package:
    • File → Open → Select SysInfoR.dpk
    • Right-click on the package → Compile
  3. Open the design-time package:
    • File → Open → Select SysInfoD.dpk
    • Right-click on the package → Compile
    • Right-click on the package → Install
  4. The component will appear in the "System" category of the Tool Palette

Method 2: Manual Installation

  1. Add the directory containing SysInfo.pas to your project's search path:

    • Project → Options → Delphi Compiler → Search path
    • Add the path to the directory

  2. Add SysInfo to your uses clause:

    uses
  SysInfo;

Usage

Design-Time Usage

  1. Drop a TSysInfo component onto your form from the "System" category
  2. All properties are published and visible in the Object Inspector at design-time
  3. Properties are read-only and retrieve live system information at runtime
  4. Access properties at runtime:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('CPU: ' + SysInfo1.CPUName);
  ShowMessage('Total Memory: ' + IntToStr(SysInfo1.TotalMemory div (1024*1024)) + ' MB');
  ShowMessage('User: ' + SysInfo1.UserName);
  ShowMessage('Documents: ' + SysInfo1.DocumentsDirectory);
end;

Note: All properties have stored False to prevent saving values to the DFM since they are dynamically retrieved from the system.

Runtime Usage

uses
  SysInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  SysInfo: TSysInfo;
  I: Integer;
begin
  SysInfo := TSysInfo.Create(nil);
  try
    // CPU Information
    Memo1.Lines.Add('CPU Name: ' + SysInfo.CPUName);
    Memo1.Lines.Add('CPU Vendor: ' + SysInfo.CPUVendor);
    Memo1.Lines.Add('CPU Speed: ' + IntToStr(SysInfo.CPUSpeed) + ' MHz');
    Memo1.Lines.Add('CPU Count: ' + IntToStr(SysInfo.CPUCount));
    Memo1.Lines.Add('CPU Architecture: ' + SysInfo.CPUArchitecture);
    Memo1.Lines.Add('');

    // Memory Information
    Memo1.Lines.Add('Total Memory: ' + IntToStr(SysInfo.TotalMemory div (1024*1024)) + ' MB');
    Memo1.Lines.Add('Available Memory: ' + IntToStr(SysInfo.AvailableMemory div (1024*1024)) + ' MB');
    Memo1.Lines.Add('Memory Load: ' + IntToStr(SysInfo.MemoryLoad) + '%');
    Memo1.Lines.Add('');

    // Mainboard Information
    Memo1.Lines.Add('Mainboard Manufacturer: ' + SysInfo.MainboardManufacturer);
    Memo1.Lines.Add('Mainboard Product: ' + SysInfo.MainboardProduct);
    Memo1.Lines.Add('BIOS Vendor: ' + SysInfo.BIOSVendor);
    Memo1.Lines.Add('BIOS Version: ' + SysInfo.BIOSVersion);
    Memo1.Lines.Add('BIOS Date: ' + SysInfo.BIOSDate);
    Memo1.Lines.Add('');

    // Disk Information
    Memo1.Lines.Add('Disks:');
    for I := 0 to SysInfo.DiskList.Count - 1 do
    begin
      with SysInfo.DiskList[I] do
      begin
        Memo1.Lines.Add(Format('  %s: %s (%s) - %s', [
          DriveLetter + ':\',
          VolumeLabel,
          FileSystem,
          DriveType
        ]));
        Memo1.Lines.Add(Format('    Total: %d MB, Free: %d MB', [
          TotalSpace div (1024*1024),
          FreeSpace div (1024*1024)
        ]));
      end;
    end;
    Memo1.Lines.Add('');

    // System Directories
    Memo1.Lines.Add('Windows Directory: ' + SysInfo.WindowsDirectory);
    Memo1.Lines.Add('System Directory: ' + SysInfo.SystemDirectory);
    Memo1.Lines.Add('Temp Directory: ' + SysInfo.TempDirectory);
    Memo1.Lines.Add('Program Files: ' + SysInfo.ProgramFilesDirectory);
    Memo1.Lines.Add('');

    // User Directories
    Memo1.Lines.Add('Desktop: ' + SysInfo.DesktopDirectory);
    Memo1.Lines.Add('Documents: ' + SysInfo.DocumentsDirectory);
    Memo1.Lines.Add('Music: ' + SysInfo.MusicDirectory);
    Memo1.Lines.Add('Pictures: ' + SysInfo.PicturesDirectory);
    Memo1.Lines.Add('Videos: ' + SysInfo.VideosDirectory);
    Memo1.Lines.Add('Downloads: ' + SysInfo.downloadsDirectory);
    Memo1.Lines.Add('');

    // AppData Directories
    Memo1.Lines.Add('AppData: ' + SysInfo.AppDataDirectory);
    Memo1.Lines.Add('Local AppData: ' + SysInfo.LocalAppDataDirectory);
    Memo1.Lines.Add('Common AppData: ' + SysInfo.CommonAppDataDirectory);
    Memo1.Lines.Add('');

    // User Information
    Memo1.Lines.Add('User Name: ' + SysInfo.UserName);
    Memo1.Lines.Add('Computer Name: ' + SysInfo.ComputerName);
    Memo1.Lines.Add('User Domain: ' + SysInfo.UserDomain);
    Memo1.Lines.Add('User Directory: ' + SysInfo.UserDirectory);
    Memo1.Lines.Add('');

    // Windows Information
    Memo1.Lines.Add('Windows: ' + SysInfo.WindowsProductName);
    Memo1.Lines.Add('Version: ' + SysInfo.WindowsVersion);
    Memo1.Lines.Add('Build: ' + SysInfo.WindowsBuild);
    Memo1.Lines.Add('');

    // System Status
    Memo1.Lines.Add('Uptime: ' + IntToStr(SysInfo.SystemUptime div 1000) + ' seconds');
    Memo1.Lines.Add('Is Administrator: ' + BoolToStr(SysInfo.IsAdmin, True));
    Memo1.Lines.Add('64-bit OS: ' + BoolToStr(SysInfo.Is64BitOS, True));
    Memo1.Lines.Add('64-bit Process: ' + BoolToStr(SysInfo.Is64BitProcess, True));
  finally
    SysInfo.Free;
  end;
end;

Refreshing Disk Information

The disk list is automatically populated when the component is created. To refresh the disk information:

SysInfo1.RefreshAll;

Or refresh just the disk list:

SysInfo1.DiskList.Refresh;

Properties Reference

CPU Properties

  • CPUName: string - Full CPU name (e.g., "Intel(R) Core(TM) i7-9700K CPU @ 3.60GHz")
  • CPUVendor: string - CPU vendor (e.g., "GenuineIntel", "AuthenticAMD")
  • CPUIdentifier: string - CPU identifier string
  • CPUSpeed: Integer - CPU speed in MHz
  • CPUCount: Integer - Number of logical processors
  • CPUArchitecture: string - Architecture (x86, x64, ARM, ARM64, IA64)

Memory Properties

  • TotalMemory: Int64 - Total physical memory in bytes
  • AvailableMemory: Int64 - Available physical memory in bytes
  • MemoryLoad: Integer - Memory usage percentage (0-100)
  • PageFileTotal: Int64 - Total page file size in bytes
  • PageFileFree: Int64 - Available page file size in bytes

Mainboard Properties

  • MainboardManufacturer: string - Mainboard manufacturer
  • MainboardProduct: string - Mainboard product name
  • BIOSVendor: string - BIOS vendor
  • BIOSVersion: string - BIOS version
  • BIOSDate: string - BIOS release date

Disk Properties

  • DiskList: TDiskList - Collection of disk information
    • Count: Integer - Number of drives
    • Items[Index]: TDiskInfo - Access individual drive information
      • DriveLetter: Char - Drive letter (A-Z)
      • VolumeLabel: string - Volume label
      • FileSystem: string - File system type (NTFS, FAT32, etc.)
      • DriveType: string - Drive type (Fixed, Removable, Network, CD-ROM, RAM Disk)
      • TotalSpace: Int64 - Total space in bytes
      • FreeSpace: Int64 - Free space in bytes
      • SerialNumber: Cardinal - Volume serial number

System Directory Properties

  • WindowsDirectory: string - Windows installation directory
  • SystemDirectory: string - Windows System32 directory
  • TempDirectory: string - Temporary files directory
  • ProgramFilesDirectory: string - Program Files directory
  • ProgramFilesX86Directory: string - Program Files (x86) directory
  • CommonFilesDirectory: string - Common Files directory

User Directory Properties

  • DesktopDirectory: string - User's Desktop folder
  • DocumentsDirectory: string - User's Documents folder
  • MusicDirectory: string - User's Music folder
  • PicturesDirectory: string - User's Pictures folder
  • VideosDirectory: string - User's Videos folder
  • DownloadsDirectory: string - User's Downloads folder
  • StartMenuDirectory: string - User's Start Menu folder
  • StartupDirectory: string - User's Startup folder

AppData Directory Properties

  • AppDataDirectory: string - User's AppData\Roaming folder
  • LocalAppDataDirectory: string - User's AppData\Local folder
  • CommonAppDataDirectory: string - ProgramData (All Users) folder

User Information Properties

  • UserName: string - Current user's login name
  • ComputerName: string - Computer name
  • UserDomain: string - User's domain or workgroup
  • UserDirectory: string - User's profile directory

System Information Properties

  • WindowsVersion: string - Windows version number
  • WindowsBuild: string - Windows build number
  • WindowsProductName: string - Windows edition name
  • SystemUptime: Int64 - System uptime in milliseconds
  • IsAdmin: Boolean - True if running with administrator privileges
  • Is64BitOS: Boolean - True if running on 64-bit Windows
  • Is64BitProcess: Boolean - True if this is a 64-bit process

Requirements

  • Delphi XE2 or later (for 64-bit support)
  • Windows XP or later
  • VCL Framework

License

This component is provided as-is for free use in both commercial and non-commercial projects.

Notes

  • All directory properties use Windows API calls (SHGetFolderPath, GetWindowsDirectory, etc.)
  • Memory values are in bytes; divide by (10241024) to get MB or (10241024*1024) to get GB
  • Some properties may return empty strings if the information is not available on the system
  • Administrator check requires Windows Vista or later
  • The component automatically initializes disk information when created
  • Use RefreshAll method to update dynamic information (disk space, available memory, etc.)

Example Project

See the usage examples above for a complete demonstration of all features.

Support

For issues, questions, or contributions, please refer to the component source code and Windows API documentation.