-
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathcpuinterface.pas
39 lines (30 loc) · 950 Bytes
/
cpuinterface.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
{-----------------------------------
Cpu Identifier interface declaration
-------------------------------------
Interface that encapsulate detail of
getting processor vendor name, brand string
supported features and etc
-------------------------------------
(c) 2017 Zamrony P. Juhara <[email protected]>
http://github.com/zamronypj/cpuid
-------------------------------------}
unit CpuInterface;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
ICpuIdentifier = interface
function cpuidSupported() : boolean;
function vendorName() : string;
function processorName() : string;
function family() : byte;
function model() : byte;
function stepping() : byte;
function hasFeature(const feature : string) : boolean;
function maximumFrequency() : word;
function baseFrequency() : word;
function busReferenceFrequency() : word;
end;
implementation
end.