Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();
tmpBitmap->LoadFromFile(bmpfile); // bmpfile 是要讀取圖檔的路徑與名稱
Image1->Picture->Bitmap->Assign(tmpBitmap);  // 交由 Image 物件去顯示出來
delete tmpBitmap;

// 找尋 20050720165940_RG-R.bmp 這個檔案，若找到的話就顯示於 Image1
WIN32_FIND_DATA wfd;
ZeroMemory(&wfd, sizeof(WIN32_FIND_DATA));
AnsiString path = "C:\\PICTURE\\";
AnsiString file = path   "??????????????_RG-R.bmp";
HANDLE hFile = FindFirstFile(file.c_str(), &wfd);    if (hFile != INVALID_HANDLE_VALUE) {
    Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();
    tmpBitmap->LoadFromFile(path   wfd.cFileName);
    Image1->Picture->Bitmap->Assign(tmpBitmap);
    delete tmpBitmap;        FindClose(hFile);
}

 
 if(ListBox1->Items->Strings[i]==20){ // ListBox1有等於20的話就進行拍照
              P.x=220; // 設定滑鼠X座標
              P.y=42;  // 設定滑鼠Y座標
              Sleep(5000); 暫停5秒                  //設定滑鼠並按下左鍵(拍照
鍵)我是希望當我執行拍照鍵功能之後，IMAGE1可以顯示目前最新的圖片
              SetCursorPos(P.x,P.y);
              mouse_event(MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,GetMessageExtraInfo());
              mouse_event(MOUSEEVENTF_LEFTUP,P.x,P.y,0,GetMessageExtraInfo());
              Sleep(1500);                  WIN32_FIND_DATA wfd;
              ZeroMemory(&wfd, sizeof(WIN32_FIND_DATA));
              AnsiString path = "C:\\DSC\\Image\\";
              AnsiString file = path   "??????????????_RG-R.bmp";
              HANDLE hFile = FindFirstFile(file.c_str(), &wfd);                    if (hFile != INVALID_HANDLE_VALUE) {
                   Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();
                   tmpBitmap->LoadFromFile(path   wfd.cFileName);
                   Image1->Picture->Bitmap->Assign(tmpBitmap);
                   delete tmpBitmap;
                   FindClose(hFile);
                 }
              }

引言: 檔案是您儲存的，您可以將儲存時的路徑與檔名記錄下來，在讀檔時直接用記錄下來的路徑與名稱即可，關於這句話我想解釋一下。 我現在是有一個照相機程式但是我沒有程式碼，而我又要能讓他自動拍照以便我分析圖片所以我用BCB寫了一個可以自動控制照相機程式的執行檔，那現在我是想在這執行檔中加入一個功能，就是當我用我自己寫的執行檔去按下照相機程式中的照相鍵之後可以將新產生的圖檔載入到IMAGE元件中接下來要算圖片的MEAN值...所以我只能確定儲存時的路徑而檔名我就不知道是什麼了。

來插花一下 您相機應該是 >

引言:我現在是有一個照相機程式但是我沒有程式碼，而我又要能讓他自動拍照以便我分析圖片所以我用BCB寫了一個可以自動控制照相機程式的執行檔，那現在我是想在這執行檔中加入一個功能，就是當我用我自己寫的執行檔去按下照相機程式中的照相鍵之後可以將新產生的圖檔載入到IMAGE元件中接下來要算圖片的MEAN值...所以我只能確定儲存時的路徑而檔名我就不知道是什麼了。 不過照相機程式中檔案的命名規則是20050720165940_RG-G.bmp 前面的數字是當你按下照相鍵時的時間如2005年7月20號16點59分40秒，所以我在想當我程式按下照相鍵之後可以一起抓取系統目前的時間，然後利用抓到的時間組合成檔名在去抓圖...不知道這樣的做法好不好

引言:謝謝2位大大熱心的回應，自己寫一個程式是不太可能。因為程式中還有很多功能要寫而我不知道這些功能的函式要怎麼寫，要怎麼控制。所以對我而言這是不能的任務。

WIN32_FIND_DATA wfd;
ZeroMemory(&wfd, sizeof(WIN32_FIND_DATA));
AnsiString path = "C:\\中文目錄\\";  // 要找尋的檔案位置 (路徑)
AnsiString file = path   "??????????????_RG-R.bmp";  // 要找尋的檔案名稱樣板    HANDLE hFile=FindFirstFile(file.c_str(), &wfd);  // 開始找尋    if (hFile != INVALID_HANDLE_VALUE) {  // 如果找到的話
    AnsiString BmpFile = path   wfd.cFileName;  // 找到的圖檔名稱 (含路徑)
    AnsiString NewFileName = BmpFile   ".bak";  // 準備用來更名的字串為 原名   .bak
    Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();        tmpBitmap->LoadFromFile(BmpFile);  // 載入找到的圖檔
    Image1->Picture->Bitmap->Assign(tmpBitmap);  // 將圖檔內容顯示於 Image1        RenameFile(BmpFile, NewFileName);  // 更改圖檔名稱為 原名   .bak        delete tmpBitmap;
    FindClose(hFile);
}

 //設定滑鼠並按下左鍵
              SetCursorPos(P.x,P.y);
              mouse_event(MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,GetMessageExtraInfo());
              mouse_event(MOUSEEVENTF_LEFTUP,P.x,P.y,0,GetMessageExtraInfo());
              Sleep(1500);
              WIN32_FIND_DATA wfd;
              ZeroMemory(&wfd, sizeof(WIN32_FIND_DATA));
              AnsiString path = "C:\\SYNC 48Mhz\\CaptureImage\\";  // 要找尋的檔案位置 (路徑)
              AnsiString file = path   "??????????????_RG-R.bmp";  // 要找尋的檔案名稱樣板
              HANDLE hFile=FindFirstFile(file.c_str(), &wfd);  // 開始找尋                    if (hFile != INVALID_HANDLE_VALUE) {  // 如果找到的話
                   AnsiString BmpFile = path   wfd.cFileName;  // 找到的圖檔名稱 (含路徑)
                   AnsiString NewFileName = BmpFile   ".bak";  // 準備用來更名的字串為 原名   .bak
                   Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();                       tmpBitmap->LoadFromFile(BmpFile);  // 載入找到的圖檔
                   Image1->Picture->Bitmap->Assign(tmpBitmap);  // 將圖檔內容顯示於 Image1                        RenameFile(BmpFile, NewFileName);  // 更改圖檔名稱為 原名   .bak
                    delete tmpBitmap;
                    FindClose(hFile);                        Image1->Picture->Bitmap->PixelFormat = pf24bit;
                    byte *ptr=NULL;//動態記憶體配置                         b=new double [Image1->Picture->Height*Image1->Picture->Width*3];
                      for (int i=0;iPicture->Height;i  )
                      {
                        ptr = (Byte *)Image1->Picture->Bitmap->ScanLine[i];
                          for (int j=0;jPicture->Width;j  )
                          {
                            int B = ptr[j*3];
                            int G = ptr[j*3 1];
                            int R = ptr[j*3 2];                                b[k*3]=B;
                            b[k*3 1]=G;
                            b[k*3 2]=R;                                if(k<(Image1->Picture->Width*Image1->Picture->Height)){
                              k  ;
                            }
                          }                           }                           Label5->Caption=FloatToStr(SimpleRoundTo(Mean(b,(Image1->Picture->Width*Image1->Picture->Height*3)),-4));
                       /*float value =  SimpleRoundTo(Mean(b,(Image1->Picture->Width*Image1->Picture->Height*3)),-4);
                       Range=Worksheet.OlePropertyGet("Cells",1,2);
                       Range.OlePropertySet("Value",value);
                      Cell=Range.OlePropertyGet("Interior");
                      Range=Worksheet.OlePropertyGet("Cells",1,2);*/
              }
              delete []b;
 

    WIN32_FIND_DATA wfd;
    ZeroMemory(&wfd, sizeof(WIN32_FIND_DATA));
    AnsiString path = "C:\\MyDir\\";
    AnsiString file = path   "??????????????_RG-R.bmp";  // 要找尋的檔案名稱樣板
    TStringList* imgFiles = new TStringList();        HANDLE hFile=FindFirstFile(file.c_str(), &wfd);  // 開始找尋
    if (hFile != INVALID_HANDLE_VALUE) {  // 如果找到的話
        bool done = true;
        while (done){
            imgFiles->Add(wfd.cFileName);  // 將找到檔案的名稱添加到 StringList
            done = FindNextFile(hFile, &wfd); // 找下一個符合樣板的檔案
        }
        FindClose(hFile);
    }        if (imgFiles->Count > 0) { // 如果有找到
        imgFiles->Sort();  // 確保名稱按順序排列 (雖然找尋檔案動作似乎已按順序)            Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();
        for (int i=0; iCount; i  ) {
            tmpBitmap->LoadFromFile(path   imgFiles->Strings[i]);  // 載入找到的圖檔
            if (i == 0) Image1->Picture->Bitmap->Assign(tmpBitmap);  // 將圖檔內容顯示於 Image1
            else if (i == 1) Image2->Picture->Bitmap->Assign(tmpBitmap);  // 將圖檔內容顯示於 Image2                AnsiString NewFileName = ChangeFileExt(imgFiles->Strings[i], ".bak");  // 準備用來更名的字串為 - 副檔名改為 .bak
            RenameFile(path   imgFiles->Strings[i], path   NewFileName);  // 更改圖檔名稱為 - 副檔名改為 .bak
        }            delete tmpBitmap;
    }        delete imgFiles;