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

[wangxl430]

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

[thedream]

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

[haoqingqlm]

在 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不能相同