本文整理自网络,侵删。
通过 Deployment Manager 添加图片 CHEMICAL.png 和 FACTORY.pnguses System.IOUtils;
procedure TForm1.FormCreate(Sender: TObject);var Path: string;begin Path := TPath.Combine(TPath.GetDocumentsPath, 'CHEMICAL.png'); if TFile.Exists(Path) then Image1.Bitmap.LoadFromFile(Path); Path := TPath.Combine(TPath.GetDocumentsPath, 'FACTORY.png'); if TFile.Exists(Path) then Image2.Bitmap.LoadFromFile(Path);end;

相关阅读 >>
Delphi分割字符串的函数--extractstrings
Delphi rest application 与 webbroker application 区别
Delphi tbitmap创建时提示object or class type required
Delphi xe android platform uses-permission[2] androidmanifest.xml 配置
更多相关阅读请进入《Delphi》频道 >>