如何处理在一台机器上我的程序只能有一个进程运行

Question

我的思路是启动的时候根据api得到这个程序在运行，
然后下一个程序启动的时候首先判断是否有同样的进程运行，
如果有提示不能登录，
不知道这样的API是多少？
具体的delphi的代码是什么啊？
最好能够提示部分代码啊
谢谢！

Answer 1

在工程的源文件里写，如program V6Monitor;uses
  Forms,
  Messages,
  windows,
  UMain in 'UMain.pas' {....};var
  Hand: Longint;
{$R *.RES}begin
  CreateMutex(nil, True, 'abcdefghijgddddddd');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Hand:=FindWindow('TMainForm'{主窗口类名},PChar('管理系统'{主窗口标题}));
    if Hand<>NULL then
    begin
      ShowWindow(Hand,SW_SHOWNORMAL);
    end
    else
    begin
      shomessage( '错误信息', '系统已经运行，但找不到主窗口，请稍后再试' );
    end;
    Halt;
  end;
  Application.Initialize;
  Application.Title:='管理系统 V2.0';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Answer 2

转贴:
让程序只运行一个实例（Delphi篇）作者：陈华珊　　Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法： 
　　一、 查找窗口法 
　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码： 
　 Program OneApp 
　　Uses 
　　Forms,Windows;（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了） 
　　Var Hwnd:Thandle; 
　　Begin 
　　 Hwnd:=FindWindow(‘TForm1’，‘SingleApp’); 
　　 If Hwnd=0 then 
　　 Begin 
　　 Application.Initialize; 
　　 Application.CreateForm(Tform1, Form1); 
　　 Application.Run; 
　　 End; 
　　End; 
　　FindWindow()函数带两个参数，其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delphi IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和标题的窗口：设计时的窗体。 
　　二、使用互斥对象 
　　如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接，但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。 
var
  Mutex: THandle;
begin
  Mutex := CreateMutex(nil, True, 'SingleApp');
  if GetLastError <> ERROR_ALREADY_EXISTS then //如果不存在另一实例
  begin
    Application.CreateHandle;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
  ReleaseMutex(Mutex);
end.
　　三、全局原子法 
　　我们也可以利用向系统添加全局原子的方法，来防止多个程序实例的运行。全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下： 
　　Uses Windows 
　　const iAtom=‘SingleApp’; 
　　begin 
　　 if GlobalFindAtom(iAtom)=0 then 
　　 begin 
　　 GlobalAddAtom(iAtom); 
　　 Application.Initialize; 
　　 Application.CreateForm(TForm1,Form1); 
　　 Application.Run; 
　　 GlobalDeleteAtom(GlobalFindAtom(iAtom)); 
　　 end 
　　 else 
　　 MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK); 
　　end. 
　　利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例： 
　　var i:Integer; 
　　begin 
　　 I:=0; 
　　while GlobalFindAtom(iAtom)<>0 do 
　　 begin 
　　 GlobalDeleteAtom(GlobalFindAtom(iAtom)); 
　　 i:=i＋1; 
　　 end; 
　　 ShowMessage(IntToStr(I)); 
　　end; 
　　以上几种方法在笔者的Delphi 4.0，中文Windows95下通过。

Answer 3

就是进程间通讯（IPC），上面的第二种互斥就是

Answer 4

你的思路是正确的，关键是在工程文件里写代码。
下面的方法绝对好用：
启动Delphi，打开你的工程，然后点Project菜单下的View Source，打开工程文件。
把Begin...end之间的代码复制到一个文本文件中，然后把下面的代码复制到的你工程文件覆盖begin...end间的代码(包括begin...end)var
  Mutex: THandle;begin
  Mutex := CreateMutex(nil, True, '你的软件名称');
  try
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      MessageBox(0, '请不要重复运行本程序！', '警告', MB_OK);
      Exit;
    end
    else
    begin
      ☆
    end;
  finally
    CloseHandle(Mutex);
  end;end.工程文件的首部需要use windows,SysUtils。
最后把存在文本文件中原工程的begin...end间的代码拷贝到☆处即可。

Answer 5

使用ABC组件最简单,不用写代码的,其内部是使用Mutex的