unit AboutBox;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, ShellApi,
Buttons, ExtCtrls, SysUtils, jpeg, dateUtils, Language,
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
Utilities;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
const
em = 2000;
type
TAboutBox =
class(TForm)
OKButton: TButton;
Label1: TLabel;
CopyRight: TLabel;
Label3: TLabel;
PhysMem: TLabel;
Label4: TLabel;
Label6: TLabel;
Label9: TLabel;
ProduktId: TLabel;
Produkt: TLabel;
Label8: TLabel;
FreeRes: TLabel;
Edition: TLabel;
Bevel2: TBevel;
ProgramIcon: TImage;
Bevel1: TBevel;
ListBox1: TListBox;
Label2: TLabel;
procedure Label8Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
InitiallyAvail:
longint;
NowAvail:
longint;
DllVersion:
String;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
var
About: TAboutBox;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
implementation
uses Options;
{
$R *.dfm}
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TAboutBox.Label8Click(Sender: TObject);
begin
ShellExecute(Handle,
'open',
'http://www.cococo.de', nil, nil, SW_SHOWNORMAL);
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TAboutBox.FormShow(Sender: TObject);
var
MS: TMemoryStatus;
Percent:
integer;
Fl:
real;
YY:
integer;
begin
Label1.Caption := Application.Title +
' ' + Options.Version;
Edition.Caption :=
'Standardedition';
YY := Yearof(now);
CopyRight.Caption :=
'Copyright © ' + inttostr(YY) +
' Context IT GmbH';
GlobalMemoryStatus(MS);
NowAvail := InitiallyAvail -
Longint(MS.dwAvailPhys);
PhysMem.Caption := FormatFloat(
'####" MB"', MS.dwTotalPhys / (1024 * 1024));
Fl := (MS.dwTotalPhys - MS.dwAvailPhys) / MS.dwTotalPhys;
PerCent := Round(100 * Fl);
FreeRes.Caption := Format(
'%d %%', [PerCent]);
if not opt.R.Activated
then begin
ProduktId.Caption := trans(71,
'Noch nutzbar für ');
Produkt.Caption := IntToStr(DaysBetween(opt.R.NextCheck, Now)) +
' ' +
trans(72,
'Tage');
end
else begin
ProduktId.Caption := trans(73,
'ProduktId');
Produkt.Caption := GetWinProductId()
end;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TAboutBox.Label7Click(Sender: TObject);
var
em_subject, em_body, em_mail:
string;
begin
em_subject :=
'Anfrage zu Columbo';
em_body :=
'';
em_mail :=
'mailto:columbo@cococo.de?subject=' + em_subject +
'&body='
+ em_body;
ShellExecute(Handle,
'open', PChar(em_mail),
nil,
nil, SW_SHOWNORMAL);
end;
//------------------------------------------------------------------------------
//Ende dieser Quelle
//------------------------------------------------------------------------------
end.
