在工程文件中, WinMain函数里加上以下代码(此代码在BCB6.0下运行):
HANDLE hMutex = CreateMutex(NULL, false, "Process"); if (GetLastError() == ERROR_ALREADY_EXISTS) { CloseHandle(hMutex); MessageBox(Application->Handle, "程序已经在运行中,不能重复启动!", "提示", MB_OK +MB_ICONWARNING); Application->Terminate(); return 0; } Application->CreateForm(__classid(TForm1), &Form1);
主要使用到CreateMutex()函数和G......
阅读全文