系统找不到指定的文件？

var
  TBitmap1: TBitmap;procedure TfrmCollection.FormShow(Sender: TObject);
begin
  TBitmap1 := TBitmap.Create;
  TBitmap1.LoadFromFile('2.bmp');
end;procedure TfrmCollection.tbrAdvancedCustomDraw(Sender: TToolBar;
  const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
  tbr.Canvas.StretchDraw(Arect, TBitmap1);
end;以上，生成exe文件后，复制exe文件到别的目录再运行就会出错，怎么办？
谁帮忙告知下原因，谢谢

解决方案 »

  1.   

      TBitmap1.LoadFromFile('2.bmp');   //這個文件的真實路徑呢？？
      

  2.   

    真实路径？我也试过，似乎没用：TBitmap1.LoadFromFile(ExtractFilePath(Application.ExeName);
      

  3.   

    exe被改变位置后,找不到目下的'2.bmp'
      

  4.   

    真实路径？我也试过，似乎没用： TBitmap1.LoadFromFile(ExtractFilePath(Application.ExeName) + '2.bmp'); 
    错误原因我知道，就是不知道该怎么解决
      

  5.   

    TBitmap1.LoadFromFile('2.bmp'); 
    你把2.bmp的全路径写上去试试
      

  6.   

    原因我知道exe文件换地方后，exe所在的目录下没这个'2.bmp'