www.pudn.com > Source.rar > Unit2.~pas, change:2007-02-04,size:799b

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; 
    Image1: TImage; 
    Label1: TLabel; 
    Image3: TImage; 
    Image4: TImage; 
    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.