如何使a,b,c 三个程序在同一时间只能运行其中一个。

Question

例如：在a已经运行的情况下，不允许再运行b或c
请解释详细一点

Answer 1

在注册表写个标志,在每个工程的开始先检测是否有该值在注册表中,:-)
要不findwindow也行

Answer 2

在 a 的工程文件中：var handle:integer; {变量}begin
  handle:=findwindow(b,nil);{查找是否有此类的窗体，b为String,是了程序主窗体的Name属性，前面要加T，如TfmMain}
   if handle<>0 then {不为0则程序已运行}
     messagebox(0,'b程序已经运行','运行',0);{提示程序已运行}  handle:=findwindow(c,nil);{查找是否有此类的窗体,}
   if handle<>0 then {不为0则程序已运行}
     messagebox(0,'c程序已经运行','运行',0);{提示程序已运行}   //三个程序的的主窗体的name不能相同