Subversion Repositories delphiutils

Rev

Blame | Last modification | View Log | RSS feed

  1. unit about;
  2.  
  3. interface
  4.  
  5. uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls;
  7.  
  8. type
  9.   TAboutBox = class(TForm)
  10.     Panel1: TPanel;
  11.     OKButton: TButton;
  12.     ProgramIcon: TImage;
  13.     ProductName: TLabel;
  14.     Version: TLabel;
  15.     Copyright: TLabel;
  16.     Comments: TLabel;
  17.     Label1: TLabel;
  18.     procedure Label1Click(Sender: TObject);
  19.   end;
  20.  
  21. var
  22.   AboutBox: TAboutBox;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. uses
  29.   ShellAPI;
  30.  
  31. procedure TAboutBox.Label1Click(Sender: TObject);
  32. begin
  33.   ShellExecute(Handle, 'open', 'https://www.viathinksoft.de/', '', '', SW_NORMAL);
  34. end;
  35.  
  36. end.
  37.  
  38.