rahmenlose Ansicht.~pas DruckansichtShell {Shell[70] Isabelle[75] CS[99]}Entwicklung
unit reabout;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, SysUtils, jpeg, XPMan, ComCtrls;
type
TAboutBox = class(TForm)
OKButton: TButton;
ProgramIcon: TImage;
Label1: TLabel;
Bevel1: TBevel;
Label2: TLabel;
Label3: TLabel;
PhysMem: TLabel;
Label4: TLabel;
FreeRes: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
ListBox1: TListBox;
Label11: TLabel;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
procedure TAboutBox.FormCreate(Sender: TObject);
var
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;
end.
[ Verzeichnis aufwärts0.133unsichere Verbindung
]
