如果让程序只运行一次？

2003-08-20 02:16:08 187 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

c# 程序只运行一次的处理方法方法一：遍历正在有相同名字运行的例程using System;using System.Collections.Generic;using System.Text;using System.Diagnostics;using System.Runtime.InteropServices;namespace DHPSS.COM{ /// /// 阅读详情

看到有资料上是如下方法：

procedure TForm1.FormCreate(Sender: TObject);
begin
{搜索数据库看程序是否运行}
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
{ 假如没有找到，就添加到数据库}
atom := GlobalAddAtom('PROGRAM_RUNNING')
else begin
{ 如果程序已经运行，显示信息并退出程序 }
MessageDlg('程序已经运行!', mtWarning, [mbOK], 0);
Halt;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{ 退出程序时，从数据表中删除添加的条目 }
GlobalDeleteAtom(atom);
end;

但我搬过来用时，编译出错，说atom后面需要'('，找帮助也没有对atom的说明。
哪位大虾帮帮忙！

...全文