下载后可任意编辑公司开发的软件需要对串口进行*作，每次打开软件后程序自动去打开串口寻找连接到串口上的设备，但是假如用户不知道打开了两次，那么第二次打开的程序是不能正常使用的，因为对串口的*作时独占的，第一个程序独占了串口的使用权，其他程序无法再使用那一个串口，当然假如 PC 机器上有两个串口，那第二个程序也是可以用的。为了解决这个问题，必须限制对串口*作的软件只能打开一个。打开软件后用户假如误*作再次想打开该软件，需要提示用户软件已经打开，并让已打开的软件显示在窗口最顶层。 下面是 Delphi 版的解决方法。 (方法一) 利用互斥对象 开发过多线程软件的可能都使用过互斥对象，它常被用做线程间同步的技术手段。简要的提一下互斥对象：互斥对象把第一次建立它的程序作为主程序，这样只用检测互斥对象是否 已 经 有 主 程 序 就 推 断 程 序 是 否 已 经 运 行 过 ， 这 里 需 要 涉 及 到 一 个 api 函 数 ：WaitForSingleObject，该函数的第一个参数为用以检测的互斥对象，第 2 个参数的表示函数返回结果前的滞留时间，假如改函数返回 wait_TimeOut 就表明互斥对象已经有了一个主程序。 注意：以下的代码都出现在工程文件中，而不是单元文件中。 var myMutex:HWND; begin //CreateMutex 建立互斥对象，并且给互斥对象起一个唯一的名字。 myMutex:=CreateMutex(nil,false,'hkOneCopy'); //程序没有被运行过 if WaitForSingleObject(myMutex,0)<>wait_TimeOut then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; End; End; [注释]： 当 应 用 程 序 第 一 次 运 行 的 时 候 ， 在 应 用 程 序 中 会 建 立 一 个 互 斥 对 象 ， 名 称为'hkOneCopy'，然后推断系统中有没有这个互斥对象，假如没有则初始化应用程序。 下面再完善一下这个程序。 我们不希望程序被多次运行，而是希望假如程序运行过后，再运行这个程序的时候，将已运行的程序做出一些响应，比如说让它变为最上层的活动窗口来提示用户该程序正在运行。为 达 到 这 个 目 的 ， 必 须 要 获 得 正 在 运 行 程 序 的 句 柄 ， 然 后 用 一 个APISetForeGroundWindow(handle)，来使程序的窗口最前并激活。为了得到程序的句柄，要使用 windows 枚举函数 EnumWindows 来遍历 wind...
