SSL AboutBox.pas Sprache: Delphi

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.

quality91%

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

Wurzel

Bemerkung:

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Anfrage:

Dauer der Verarbeitung:

Sekunden

sprechenden Kalenders