0,0 → 1,60 |
unit ComInfo; |
|
interface |
|
uses |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
StdCtrls, ShellAPI, ExtCtrls; |
|
type |
TInfoForm = class(TForm) |
OkBtn: TButton; |
HomeLbl: TLabel; |
Image: TImage; |
FirmaLbl: TLabel; |
NameLbl: TLabel; |
VersionLbl: TLabel; |
EMailLbl: TLabel; |
CopyrightLbl: TLabel; |
Copyright2Lbl: TLabel; |
URL2: TLabel; |
URL1: TLabel; |
procedure OkBtnClick(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure URL2Click(Sender: TObject); |
procedure URL1Click(Sender: TObject); |
end; |
|
var |
InfoForm: TInfoForm; |
|
implementation |
|
uses |
Global; |
|
{$R *.DFM} |
|
procedure TInfoForm.OkBtnClick(Sender: TObject); |
begin |
close; |
end; |
|
procedure TInfoForm.FormCreate(Sender: TObject); |
begin |
VersionLbl.caption := 'Version ' + ProgramVersion; |
image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp'); |
end; |
|
procedure TInfoForm.URL2Click(Sender: TObject); |
begin |
shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW); |
end; |
|
procedure TInfoForm.URL1Click(Sender: TObject); |
begin |
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); |
end; |
|
end. |
|