請問各位: 要如何防止程式重覆執行~請各位能夠指導~

kenbcb您好:   您來KTop也蠻久的,搜尋的功能也該熟悉囉   http://delphi.ktop.com.tw/topic.php?topic_id=24297 請問如何防止程式重複執行? BY wzl http://delphi.ktop.com.tw/topic.php?topic_id=24350 【發表】有關防止程式重複執行的一些心得 BY jessechan 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

我試了上面的方法,都無法完全防止!,但還是謝謝

KenBCB您好:    試試看這個方法 範例下載: http://delphi.ktop.com.tw/loadfile.php?TOPICID=11492747&CC=257033    

//---------------------------------------------------------------------------
// 程式名稱: CreateMutexDemo.cpp
// 作    者: axsoft
// 執行環境: windows XP SPS   C   Builder 5 Update1
//---------------------------------------------------------------------------
#include 
#pragma hdrstop    USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        HANDLE mutexhandle=CreateMutex(NULL,false,"我的應用程式");
        if((mutexhandle!=NULL) && (GetLastError()== ERROR_ALREADY_EXISTS))
           {
            Application->MessageBox("程式重複起動","確認",MB_ICONSTOP);
            CloseHandle(mutexhandle);
            return -1;
           }
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        if(mutexhandle!=NULL)
           CloseHandle(mutexhandle);
        return 0;
}
//---------------------------------------------------------------------------

/*開心的事情別隱藏在心裡,分享給別人知道會更快樂的*/
/*得到新知識別隱藏在心裡,分享給別人了解會更清楚的*/

發表人 - axsoft 於 2003/09/01 12:12:41

如何寫一個Windows應用程式，讓他只執行一次。  -------------------------------------------------------------------------------- 作者:szu (michael liang) 資料來源:高市資教-陽光之都 BBS http://bbs.kh.edu.tw/treasure/Programs/M.991654847.A/M.995983133.A.html

第一種方法(利用FindWindow()):    環境 C  Builder    Application->Title = "";
HWND hPrevApp = ::FindWindow(NULL, "Title");
//或是寫成HWND hPrevApp = ::FindWindow("Class", NULL);
//或是寫成HWND hPrevApp = ::FindWindow("Class", "Title");    if(hPrevApp)
{
  PostMessage(hPrevApp, WM_SYSCOMMAND, SC_RESTORE, 0);
  return 0;
}
else
{
  Application->Title = "Title";
}    -------------------------------------------------------------------------
第二種方法(利用FindWindow()):    if(FindWindow(NULL, 應用程式的Title))
{
  return 0;
}    -------------------------------------------------------------------------
第三種方法(利用Global Atom Table):    ATOM atom;    if(GlobalFindAtom("PROGRAM_RUNNING") == 0)
{
  atom = GlobalAddAtom("PROGRAM_RUNNING");
}
else
{
  return 0;
}    在程式最後請加上    GlobalDeleteAtom(atom);    ------------------------------------------------------------------------
第四種方法(利用Mutex):    HANDLE handle = CreateMutex(NULL, false, "MutexName");
DWORD  error = GetLastError();    if(error == ERROR_ALREADY_EXISTS )
{
  return 0;
}    記得在程式最後面加入    ReleaseMutex(handle);    ------------------------------------------------------------------------
第五種方法(利用Semaphore):    HANDLE handle = CreateSemaphore(NULL, 1, 1, "SemaphoreName");
DWORD  error = GetLastError();    if(error == ERROR_ALREADY_EXISTS )
{
  return 0;
}    記得在程式最後面加入    ReleaseSemaphore(handle, 1, NULL);    --------------------------------------------------------------------
以上程式受到智慧財產權的保護，
permission to use, copy, modify, and distribute.
但請註明來源出處，不可用於商業用途。
--------------------------------------------------------------------

/*開心的事情別隱藏在心裡,分享給別人知道會更快樂的*/
/*得到新知識別隱藏在心裡,分享給別人了解會更清楚的*/

var FWHandle:THandle; begin FWHandle:=FindWindow(nil, pchar('ABC')); if FWHandle<>0 then begin ShowWindow(FWHandle,SW_SHOW); //显示 SetForegroundWindow(FWHandle); //取得焦点。 application.terminate; end else begin Application.Initialize; Application.Title := 'ABC'; //原 Title 不能是 'ABC' Application.CreateForm(TForm1, Form1); Application.Run; end; end. 發表人 - Dot.com 於 2003/12/14 08:57:21