about.pas

文件搜索的代码

unit about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, ShellApi;

type
  TFormAbout = class(TForm)
    lblApp: TLabel;
    lblApp2: TLabel;
    imgDonate: TImage;
    imgSF: TImage;
    lblHosted: TLabel;
    lblDonate: TLabel;
    Bevel: TBevel;
    lblURL: TLabel;
    Label1: TLabel;
    procedure imgSFClick(Sender: TObject);
    procedure imgDonateClick(Sender: TObject);
    procedure lblURLClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAbout: TFormAbout;

implementation

{$R *.dfm}

procedure TFormAbout.imgSFClick(Sender: TObject);
begin
 ShellExecute(Handle, 'open', 'http://sourceforge.net', nil, nil, SW_SHOW);
end;

procedure TFormAbout.imgDonateClick(Sender: TObject);
begin
 ShellExecute(Handle, 'open', 'http://sourceforge.net/donate/index.php?group_id=128243', nil, nil, SW_SHOW);
end;

procedure TFormAbout.lblURLClick(Sender: TObject);
begin
 ShellExecute(Handle, 'open', 'http://sourceforge.net/projects/fileseeker', nil, nil, SW_SHOW);
end;

end.