flashunit.pas

来自「基于高速铁路周边电动势计算的关键」· PAS 代码 · 共 44 行

unit FlashUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls,IniFiles, StdCtrls;

type
  TFlashForm = class(TForm)
    img1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FlashForm: TFlashForm;

implementation

{$R *.dfm}

procedure TFlashForm.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  FileName:string;
begin

  Ini := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ));
  FileName:=ChangeFileExt( Application.ExeName, '.INI' );
  if Ini.ReadBool('SysSet', 'FlashLogoBool',  True) then
     Exit;
     if FileExists(Ini.ReadString('SysSet', 'FlashLogo',  'c:/xxx.jpg')) then
      try
       img1.Picture.LoadFromFile(Ini.ReadString('SysSet', 'FlashLogo',  'c:/xxx.jpg'));
     except
      end;
end;

end.