Subversion Repositories spacemission

Rev

Go to most recent revision | 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.     procedure OkBtnClick(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure URL2Click(Sender: TObject);
  25.     procedure URL1Click(Sender: TObject);
  26.   end;
  27.  
  28. var
  29.   InfoForm: TInfoForm;
  30.  
  31. implementation
  32.  
  33. uses
  34.   Global;
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TInfoForm.OkBtnClick(Sender: TObject);
  39. begin
  40.   close;
  41. end;
  42.  
  43. procedure TInfoForm.FormCreate(Sender: TObject);
  44. begin
  45.   VersionLbl.caption := 'Version ' + ProgramVersion;
  46.   image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
  47. end;
  48.  
  49. procedure TInfoForm.URL2Click(Sender: TObject);
  50. begin
  51.   shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
  52. end;
  53.  
  54. procedure TInfoForm.URL1Click(Sender: TObject);
  55. begin
  56.   shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
  57. end;
  58.  
  59. end.
  60.  
  61.