products/sources/formale Sprachen/Delphi/Autor 0.7 image not shown  

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), nilnil, 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




Lebenszyklus

Die hierunter aufgelisteten Ziele sind für diese Firma wichtig


Ziele

Entwicklung einer Software für die statische Quellcodeanalyse


Bot Zugriff