www.pudn.com > oicqspysrc.zip > about.pas

unit about; 
//{$define REDUCE_VERSION} 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, NWURLLabel; 
 
type 
  TAboutBox = class(TForm) 
    lbProductName: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Button1: TButton; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    Label9: TLabel; 
    AuthtorList: TListBox; 
    NWURLLabel1: TNWURLLabel; 
    NWURLLabel2: TNWURLLabel; 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    class procedure Execute; 
  end; 
 
implementation 
 
{$R *.DFM} 
 
{ TAboutBox } 
 
class procedure TAboutBox.Execute; 
begin 
with TAboutBox.Create(Application) do 
    begin 
    ShowModal; 
    Free; 
    end; 
end; 
 
procedure TAboutBox.FormCreate(Sender: TObject); 
begin 
{$ifdef REDUCE_VERSION} 
lbProductName.Caption:=lbProductName.Caption+' ¼ò°æ'; 
{$endif} 
end; 
 
end.