Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: WFair.thy Sprache: Delphi

unit AboutBox;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, ShellApi,
  Buttons, ExtCtrls, SysUtils, jpeg,
  UtilitiesOwn, dateUtils;

  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;
    procedure FormPaint(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    InitiallyAvail:longint;
    NowAvail:longint;
    DllVersion:String;
  end;

var
  About: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.Label8Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open',
  'http://www.cococo.de',nil,nil, SW_SHOWNORMAL);

end;

procedure TAboutBox.FormPaint(Sender: TObject);
var
  MS: TMemoryStatus; Percent:integer;Fl:real;YY:integer;
begin
  Label1.Caption       := Title+' '+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]);
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.

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.22Angebot Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können ¤

Druckansicht unsichere Verbindung
Druckansicht Hier finden Sie eine Liste der Produkte des Unternehmens
Mittel

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: WFair.thy Sprache: Delphi

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.22Angebot Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können ¤

Lebenszyklus

Ziele

Bot Zugriff