Subversion Repositories spacemission

Rev

Rev 3 | Blame | Compare with Previous | Last modification | View Log | RSS feed

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