Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Sprache: Unknown

Columbo aufrufen.~7~ zum Wurzelverzeichnis wechselnCS {CS[83] Ada[134] Abap[945]}Datei anzeigen

unit AboutBox;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, ShellApi,
  Buttons, ExtCtrls, SysUtils, jpeg, dateUtils,
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
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]);
  Produkt.Caption:=GetWinProductId();
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.

[ Original von:0.73Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen. Man kann per Verzeichnistruktur darin navigieren. Der Code wird farblich markiert angezeigt. ]