Rev 3 | Rev 15 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 3 | Rev 4 | ||
|---|---|---|---|
| 1 | unit ComInfo; |
1 | unit ComInfo; |
| 2 | 2 | ||
| 3 | interface |
3 | interface |
| 4 | 4 | ||
| 5 | uses |
5 | uses |
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| 7 | StdCtrls, ShellAPI, ExtCtrls; |
7 | StdCtrls, ShellAPI, ExtCtrls; |
| 8 | 8 | ||
| 9 | type |
9 | type |
| 10 | TInfoForm = class(TForm) |
10 | TInfoForm = class(TForm) |
| 11 | OkBtn: TButton; |
11 | OkBtn: TButton; |
| 12 | HomeLbl: TLabel; |
12 | HomeLbl: TLabel; |
| 13 | Image: TImage; |
13 | Image: TImage; |
| 14 | FirmaLbl: TLabel; |
14 | FirmaLbl: TLabel; |
| 15 | NameLbl: TLabel; |
15 | NameLbl: TLabel; |
| 16 | VersionLbl: TLabel; |
16 | VersionLbl: TLabel; |
| 17 | EMailLbl: TLabel; |
17 | EMailLbl: TLabel; |
| 18 | CopyrightLbl: TLabel; |
18 | CopyrightLbl: TLabel; |
| 19 | Copyright2Lbl: TLabel; |
19 | Copyright2Lbl: TLabel; |
| 20 | URL2: TLabel; |
20 | URL2: TLabel; |
| 21 | URL1: TLabel; |
21 | URL1: TLabel; |
| - | 22 | MemoMitwirkende: TMemo; |
|
| 22 | procedure OkBtnClick(Sender: TObject); |
23 | procedure OkBtnClick(Sender: TObject); |
| 23 | procedure FormCreate(Sender: TObject); |
24 | procedure FormCreate(Sender: TObject); |
| 24 | procedure URL2Click(Sender: TObject); |
25 | procedure WebsiteClick(Sender: TObject); |
| 25 | procedure URL1Click(Sender: TObject); |
26 | procedure EMailClick(Sender: TObject); |
| 26 | end; |
27 | end; |
| 27 | 28 | ||
| 28 | var |
29 | var |
| 29 | InfoForm: TInfoForm; |
30 | InfoForm: TInfoForm; |
| 30 | 31 | ||
| 31 | implementation |
32 | implementation |
| 32 | 33 | ||
| 33 | uses |
34 | uses |
| 34 | Global; |
35 | Global; |
| 35 | 36 | ||
| 36 | {$R *.DFM} |
37 | {$R *.DFM} |
| 37 | 38 | ||
| 38 | procedure TInfoForm.OkBtnClick(Sender: TObject); |
39 | procedure TInfoForm.OkBtnClick(Sender: TObject); |
| 39 | begin |
40 | begin |
| 40 | close; |
41 | close; |
| 41 | end; |
42 | end; |
| 42 | 43 | ||
| 43 | procedure TInfoForm.FormCreate(Sender: TObject); |
44 | procedure TInfoForm.FormCreate(Sender: TObject); |
| 44 | begin |
45 | begin |
| 45 | VersionLbl.caption := 'Version ' + ProgramVersion; |
46 | VersionLbl.caption := 'Version ' + ProgramVersion; |
| 46 | image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp'); |
47 | image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp'); |
| 47 | end; |
48 | end; |
| 48 | 49 | ||
| 49 | procedure TInfoForm.URL2Click(Sender: TObject); |
50 | procedure TInfoForm.WebsiteClick(Sender: TObject); |
| 50 | begin |
51 | begin |
| 51 | shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW); |
52 | ShellExecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW); |
| 52 | end; |
53 | end; |
| 53 | 54 | ||
| 54 | procedure TInfoForm.URL1Click(Sender: TObject); |
55 | procedure TInfoForm.EMailClick(Sender: TObject); |
| 55 | begin |
56 | begin |
| 56 | shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); |
57 | ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); |
| 57 | end; |
58 | end; |
| 58 | 59 | ||
| 59 | end. |
60 | end. |
| 60 | 61 | ||
| 61 | 62 | ||