限制只运行一个实例的问题（同样的文件名不同的配置）

Question

一个根目录下，有几个文件夹，每个文件夹下都有一个执行文件player.exe和Set.ini配置文件,Set.ini里面有窗口的标题、大小、坐标等信息，程序创建时调用Set.ini文件，来显示不同的信息，现在想要每个文件夹下的执行文件只运行一个实例，如果该程序运行了，则将该程序置顶显示出来（窗口本身已置顶，每个文件夹下的执行文件运行后，窗口的标题都不相同）；简单的置顶、互斥、原子方法都达不到效果，C#里可以用进程名称+路径来判断，在delphi里面如果设置这个条件。实例

Answer 1

这个我知道，现在是怎么样应用到dpr里面

Answer 2

不是太明白你的意思，
如果我理解的没问题的话，可以试着用application.exefilename来创建互斥量，不知道能否达到你的要求

Answer 3

同一个exe，复制到不同的子目录
同一个子目录的exe只能同时运行一个，不同子目录的exe可以同时运行着？
创建互斥对象时，以子目录完整路径的hash值作为对象名

Answer 4

照下边的项目文件改, 已经在delphiXE下测试通过 
如果是低版本的delphi程序, 用其他方法代替Base64EncodeString编码即可program Project6;uses
  Forms, Windows,
  EBase64,
  Unit8 in 'Unit8.pas' {Form8};{$R *.res}
var
  HMutex:Hwnd;
begin
  Application.Initialize;
  //根据你的描述, 提取可执行程序的路径进行base64编码, 然后建立互斥对象
  //使用base64编码是为过滤特殊符号
  HMutex:=CreateMutex(nil,False,Pchar(Base64EncodeString(Application.ExeName)));
  If GetLastError <> ERROR_ALREADY_EXISTS Then  //互斥对象创建成功
  begin
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm8, Form8);
  end
  else   //互斥对象已存在
  begin
    Application.MessageBox(pchar('相同路径下的同名实例已创建!' + char(13) +
      '文件路径:'+Application.ExeName + char(13) +
      'base64编码:'+Base64EncodeString(Application.ExeName)
    ), pchar('提示'), mb_ok+mb_iconinformation);
    ReleaseMutex(hMutex);
  end;  Application.Run;
end.

Answer 5

目前还没有使用XE，有没有D7的代码？

Answer 6

可以用D7自带的MD5
program Project1;uses
  Forms,
  Windows,
  IdHashMessageDigest,
  IdGlobal,
  IdHash,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}var
  HMutex:Hwnd;
  MyMD5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin 
  Application.Initialize;  MyMD5 := TIdHashMessageDigest5.Create;
  Digest := MyMD5.HashValue(Application.ExeName);  //根据你的描述, 提取可执行程序的路径进行base64编码, 然后建立互斥对象
  HMutex:=CreateMutex(nil,False,Pchar(MyMD5.AsHex(Digest)));
  If GetLastError <> ERROR_ALREADY_EXISTS Then  //互斥对象创建成功
  begin
    Application.CreateForm(TForm1, Form1);
  end
  else   //互斥对象已存在
  begin
    Application.MessageBox(pchar('相同路径下的同名实例已创建!' + char(13) +
      '文件路径:'+Application.ExeName + char(13) +
      'MD5编码:'+ MyMD5.AsHex(Digest)
    ), pchar('提示'), mb_ok+mb_iconinformation);
    ReleaseMutex(hMutex);
  end;  Application.Run;end.

Answer 7

将12楼的代码 改成用CreateEvent，更简单，最后一个参数直接用 Application.ExeFilename ，如果GetLastError 返回 ERROR_ALREADY_EXISTS 就说明已经存在了