loginface.pas

进销存·完整的·有数据库的·非常完整·只得参考

unit LoginFace;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, KsSkinForms;

type
  TfrmLoginFace = class(TForm)
    imgFace: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmLoginFace: TfrmLoginFace;

implementation

uses SysPublic;
{$R *.DFM}

procedure TfrmLoginFace.FormCreate(Sender: TObject);
var
  sFile: string;
begin
  inherited;
  SystemInitialize;
  sFile := GetExePath + FILE_START_PIC;
  if FileExists(sFile) then imgFace.Picture.LoadFromFile(sFile);
  imgFace.Visible := not GetIsDebug; //调试程序
end;

end.