Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Busstop.vdmpp
Sprache: Unknown
Spracherkennung für: .~4~ vermutete Sprache: CS {CS[90] Ada[125] Abap[948]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
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 FormPaint(Sender: TObject);
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]);
ProduktId.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.
[ Dauer der Verarbeitung: 0.101 Sekunden
]
|
|
