fproject.dpr

来自「一款很漂亮的按钮组件Delphi,有源码哦。」· DPR 代码 · 共 45 行

program FProject;

uses
  Windows,Forms, Classes, Graphics,
  FUnit in 'FUnit.pas' {Form1},
  SUnit in 'SUnit.pas' {SForm};

{$R *.RES}

var
  Splash : TSForm;
  ADC : HDC;
  pt : TPoint;
  bm : TBitmap;

begin
  try
    bm := TBitmap.Create;
    bm.Width :=  374;    //Width of Harmfade
    bm.Height := 118;    //Height of Harmfade
    pt.x := ((Screen.Width - 374) div 2);
    pt.y := ((Screen.Height - 118) div 2);
    ADC := GetDC(0);
    Bitblt(bm.Canvas.Handle, 0, 0,
           bm.Width, bm.Height,
           ADC, pt.X, pt.Y, SRCCOPY);
    Splash := TSForm.Create(Application);
    Splash.FormStyle := fsStayOnTop;
    Splash.HarmFade1.PicFrom.Assign(bm);
    Splash.Show;
    Application.ProcessMessages;
    Sleep(1000);
    Splash.HarmFade1.Blend;
    Sleep(3000);
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Splash.Close;
  finally
    Splash.Free;
    ReleaseDC(0, ADC);
    bm.Free;
  end;
  Application.Run;
end.