products/sources/formale sprachen/Delphi/Bille 0.71/__history/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Options.pas.~93~   Sprache: Unknown

Spracherkennung für: .~9~ vermutete Sprache: CS {CS[84] Ada[131] Abap[942]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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(opt.R.NextCheck)+' '+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:[email protected]?subject=' +
 em_subject + '&body=' + em_body ;

 ShellExecute(Handle,'open',
   PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

//------------------------------------------------------------------------------
//     Ende dieser Quelle
//------------------------------------------------------------------------------
end.

[ Verzeichnis aufwärts0.60unsichere Verbindung  ]