Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Показывает загруженость процессора
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Показывает загруженость процессора
Показывает загруженость процессора
Зависимости: registry,Windows, SysUtils, Forms,Gauges,
Classes, Controls, ExtCtrls, StdCtrls;
Автор: DDA, Vologda
Copyright: Где-то найдено
Дата: 11 февраля 2004 г.
***************************************************** }
unit Unit1;
interface
uses
registry, Windows, SysUtils, Forms, Gauges, Classes, Controls, ExtCtrls,
StdCtrls;
type
TForm1 = class
(TForm)
Gauge1: TGauge;
Timer1: TTimer;
Button1: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
var
def: string
;
reg: TRegistry;
Buffer: array
[0..1000] of
integer;
begin
//-------------------------------
reg := TRegistry.Create;
reg.RootKey := HKEY_DYN_DATA;
def := '';
if
reg.OpenKey('PerfStatsStartStat', false) = TRUE then
begin
reg.ReadBinaryData('KERNELCPUusage', buffer, 1000);
end
;
reg.CloseKey;
Timer1.Enabled := true;
end
;
//-------------------------------
procedure
TForm1.Timer1Timer(Sender: TObject);
var
def: string
;
reg: TRegistry;
B: array
[1..4] of
integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_DYN_DATA;
def := '';
if
reg.OpenKey('PerfStatsStatData', false) = TRUE then
begin
reg.ReadBinaryData('KERNELCPUusage', b, 4);
end
;
reg.CloseKey;
Gauge1.Progress := b[1];
Application.ProcessMessages;
//-------------------------------
end
;
end
.