各位前輩好：     在希望程式不重覆執行的情況下，於FormCreate()內加入下列程式碼:(程式碼為本討論區網友所提供，主要用於讓程式不重覆執行)    

  Application->Title=Form1->Caption;      HANDLE PrevInstHandle;
  HANDLE Mutex = OpenMutex(SYNCHRONIZE,false,Application->Title.c_str());      if (Mutex != NULL)
     {
        String AppTitle=Application->Title;
        SetWindowText(Application->Handle,NULL);
        PrevInstHandle = FindWindow("TApplication", AppTitle.c_str());
        if (PrevInstHandle != 0)
           {
              if (IsIconic(PrevInstHandle))
                 ShowWindow(PrevInstHandle, SW_RESTORE);
              else
                 BringWindowToTop(PrevInstHandle);                  SetForegroundWindow(PrevInstHandle);
           }
        Application->ShowMainForm = false;
        Application->Terminate();
     }
  else  CreateMutex(NULL, false, Application->Title.c_str());    

由於本身程式的需求，設定某些副檔名.xxx可由程式開啟；雙擊該檔案可直接開啟程式，此時WinMain中引數lpCmdLine會傳入該檔檔案名稱，上述情況是在程式第一次開啟時發生。 WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow ) 我的問題是，未加入上述程式碼(不讓程式重覆執行)時，都會重新執行WinMain()和FormCreate()，但一旦加入上述程式碼後，連WinMain()和FormCreate()都不執行。 上述結果是在WinMain()和FormCreate()中加入下列程式碼，然後去看它的時間變化。

    #include "Unit1.h"
#include     WinMain():
TDateTime DateTime = Time(); 
Form1->Label1->Caption = TimeToStr(DateTime);    FormCreate():
TDateTime DateTime = Time();
Label2->Caption = TimeToStr(DateTime);
// 後面才放讓程式不重覆執行程式碼    

本以為至少會執行FormCreate()，如此才會去跑讓程式不重覆執行的程式碼，但似手沒有。 請問我該如何解決這個問題，並成功地在讓程式不重覆執行的前提下，將點選的檔案名稱再次傳入程式中？ 往日情懷 發表人 - asliu 於 2003/11/28 19:36:41

發表人 - asliu 於 2003/11/28 19:40:33

asliu您好: 請參考下面連結,讓您的程式碼更方便閱讀 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40876">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40876 順心