.......
public
aa:word;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
//搜索系統數據庫看程序是否正在運行
if GlobalFindAtom(''Project1'') =0 then // Project1為EXE文件名
//假如沒有找到該EXE文件，就把此EXE文件名添加到系統數據庫
aa := GlobalAddAtom('' Project1'')
else
begin //如果該程序已經運行，顯示信息並退出程序
MessageDlg(''該程序正在運行！'', mtWarning, [mbOK], 0);
Halt;
end;
end;
.......
procedure TForm1.FormDestroy(Sender: TObject);
begin
{ 退出程序時，從數據表中刪除添加的文件名}
GlobalDeleteAtom(aa);
end;