试试下面的代码
Const
ApplicationId='App_Id'; //唯一实例代码,自行定义符号
begin
if GlobalFindAtom(ApplicationId)>0 then
begin
MessageBox(0,'该程序已在运行中','',mb_ok);
Exit;
End;
GlobalAddAtom(ApplicationId); //建立实例
try
//运行程序代码
Finally
GlobalDeleteAtom(GlobalFindAtom(ApplicationId));//删除实例
End;