uses
Vcl.Imaging.jpeg,
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Menus;
procedure TLogin_03063333.FormCreate(Sender: TObject);
var
JPEGImage: TJPEGImage;
begin
try
JPEGImage := TJPEGImage.Create;
Image1.Picture.LoadFromFile(ExtractFilePath(application.Exename) + '\' +
'pics\login.jpg');
except
showmessage('找不到*********图片');
end;
end;