各位前輩您好：

請問各位前輩，小弟是用BCB作為程式開發工具，但如何在程式中要加入什麼，才可以防止執行檔被多次執行(有些人就是會手養)，
多次執行後，會發生工作管理中的處理程序有多個此執行檔，但畫面中只有一個(正在使用的那一個執行檔)，此時就會發生Run Error的不可預期的錯誤事件；
請各位前輩賜教，深感謝意囉~~~

 加入以下這段程式碼，看看是否有用？

[code cpp]
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Application->Title=Caption;
HANDLE hPrevInst;
String szAppTitle;
HANDLE hMutex;
hMutex=OpenMutex(SYNCHRONIZE, false, Application->Title.c_str());
if(hMutex!=NULL)
{
szAppTitle=Application->Title;
SetWindowText(Application->Handle, NULL);
hPrevInst=FindWindow("TApplication", szAppTitle.c_str());
if(hPrevInst!=0)
{
if(IsIconic(hPrevInst))
{
ShowWindow(hPrevInst, SW_RESTORE);
}
else
{
BringWindowToTop(hPrevInst);
}
SetForegroundWindow(hPrevInst);
}
Application->ShowMainForm=false;
Application->Terminate();
}
else
{
CreateMutex(NULL, false, Application->Title.c_str());
}
}
[/code]

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

編輯記錄

   感謝 前輩 您的回答，小弟測試過這方法的確可行，所以分數給了前輩您；但請容許龜毛一下，
因為BCB的Project ==>WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { ShowLogo();... }中小弟有Show Logo，
所以仍會看到Logo顯示幾秒(設定5秒)後，才會將Project.exe結束掉；因此在這請教是否有更好的方法，可以讓Logo都不用Show讓多次的Project.exe在背景自己作開啟->檢察->結束的動錯~~懇請賜教