splashform.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 51 行

unit SplashForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, OleCtrls, SHDocVw;

type
  TSplhFrm = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    WebBrowser1: TWebBrowser;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function fucGetExePath:String;
  end;

var
  SplhFrm: TSplhFrm;

implementation

{$R *.DFM}

procedure TSplhFrm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
end;

procedure TSplhFrm.FormShow(Sender: TObject);
var
  sStr:widestring;
begin
  sStr:=fucGetExePath+'粮油1.swf';
  WebBrowser1.Navigate(sStr);
end;

function TSplhFrm.fucGetExePath: String;
begin
  Result:= ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+ '\';
end;

end.