www.pudn.com > Source.rar > Unit2.pas, change:2013-02-07,size:841b


unit Unit2; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Menus, ExtCtrls, StdCtrls, Gauges, ComCtrls,  jpeg,Inifiles,BDE; 
 
type 
  TSplash = class(TForm) 
    Shape1: TShape; 
    Gauge: TProgressBar; 
    Shape2: TShape; 
    Image3: TImage; 
    Image4: TImage; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label1: TLabel; 
    procedure FormCreate(Sender: TObject); 
  private 
    { Déclarations privées } 
  public 
  VesrionOriginal:boolean; 
    { Déclarations publiques } 
  end; 
 
var 
  Splash: TSplash; 
 
implementation 
 
uses Unit3; 
 
{$R *.DFM} 
 
procedure TSplash.FormCreate(Sender: TObject); 
begin 
 
if NOT (dbiInit(nil) = DBIERR_NONE) then 
 begin 
 ShowMessage('le BDE né pas installer'); 
 Application.Terminate; 
 end; 
 
end; 
end.