www.pudn.com > at.rar > About1.pas

unit About1; 
 
{$WARN SYMBOL_PLATFORM OFF} 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls, Buttons; 
 
type 
  TShortSMSActiveXAbout = class(TForm) 
    CtlImage: TSpeedButton; 
    NameLbl: TLabel; 
    OkBtn: TButton; 
    CopyrightLbl: TLabel; 
    DescLbl: TLabel; 
    Label1: TLabel; 
    Label2: TLabel; 
  end; 
 
procedure ShowShortSMSActiveXAbout; 
 
implementation 
 
{$R *.DFM} 
 
procedure ShowShortSMSActiveXAbout; 
begin 
  with TShortSMSActiveXAbout.Create(nil) do 
    try 
      ShowModal; 
    finally 
      Free; 
    end; 
end; 
 
end.