sysinfoctrls.pas

Use the crypto module to encrypt sensitive data using a key you generated yourself... This is quite

unit SysInfoCtrls;

interface

uses
  Messages, SysUtils, Classes, Windows, Registry;

const
 About = 'InfoCtrl component modded by Gawie Greef';
 DateFormat = 'yyyy/mm/dd';

function sysGetDate:                   string;
function sysGetResolution:             string;
function sysGetDirectXVer:             string;
function sysGetAbout:                  string;
function sysGetUserName:               string;
function sysGetCompanyName:            string;
function sysGetWinVer:                 string;
function sysGetWinVerNo:               string;
function sysGetProductName:            string;
function sysGetProductID:              string;
function sysGetProductKey:             string;
function sysGetCfgPath:                string;
function sysGetProgramDir:             string;
function sysGetSysRoot:                string;
function sysGetPlusVer:                string;
function sysGetComputerName:           string;
function sysGetCPUIdentifier:          string;
function sysGetCPUVendor:              string;
function sysGetSerialPorts:            string;
function sysGetAdapterType:            string;
function sysGetNetworkPrimaryProvider: string;
function sysGetNetworkUsername:        string;
function sysGetPrinter:                string;

implementation

function sysGetResolution: string;
begin
  Result := IntToStr(GetSystemMetrics(SM_CXSCREEN))+' x '+IntToStr(GetSystemMetrics(SM_CYSCREEN));
end;

function sysGetAbout: string;
begin
  Result := About;
end;

function sysGetDate: string;
begin
  Result := FormatDateTime(DateFormat, Now);
end;

function sysGetDirectXVer: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\DirectX', True);
  Result := Reg.ReadString('Version');
end;

function sysGetCfgPath: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('ConfigPath');
end;

function sysGetCompanyName: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('RegisteredOrganization');
end;

function sysGetPlusVer: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('Plus! VersionNumber');
end;

function sysGetProductID: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('ProductId');
end;

function sysGetProductKey: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('ProductKey');
end;

function sysGetProductName: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('ProductName');
end;

function sysGetProgramDir: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('ProgramFilesPath');
end;

function sysGetSysRoot: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('SystemRoot');
end;

function sysGetUserName: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('RegisteredOwner');
end;

function sysGetWinVer: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('Version');
end;

function sysGetWinVerNo: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True);
  Result := Reg.ReadString('VersionNumber');
end;

function sysGetAdapterType: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Hardware\Description\System\MultifunctionAdapter\0', True);
  Result := Reg.ReadString('Identifier');

end;

function sysGetComputerName: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\System\CurrentControlSet\Control\ComputerName\ComputerName', True);
  Result := Reg.ReadString('ComputerName');
end;

function sysGetCPUIdentifier: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', True);
  Result := Reg.ReadString('Identifier');
end;

function sysGetCPUVendor: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', True);
  Result := Reg.ReadString('VendorIdentifier');
end;

function sysGetNetworkPrimaryProvider: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Network\Logon', True);
  Result := Reg.ReadString('PrimaryProvider');
end;

function sysGetNetworkUsername: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Network\Logon', True);
  Result := Reg.ReadString('username');
end;

function sysGetPrinter: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_CONFIG;
  Reg.OpenKey('\System\CurrentControlSet\Control\Print\Printers', True);
  Result := Reg.ReadString('Default');
end;

function sysGetSerialPorts: string;
 var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Hardware\DeviceMap\SerialComm', True);
  Result := Reg.ReadString('COM1')+' and '+Reg.ReadString('COM2');
end;

end.