禁止运行多个delphi的可执行程序!

Question

编辑项目文件的源文件添加如下代码（其中'Handlename'随便取一个，你可以取为你的程序名称，意思更清楚一些）
var
  MutexHandle: THandle;
begin
  MutexHandle := CreateMutex(nil, TRUE, 'Handlename');
  if (MutexHandle<>0) and (GetLastError=ERROR_ALREADY_EXISTS) then
  begin
    CloseHandle(MutexHandle);
    Halt;
  end;
  Application.Initialize;
  Application.Run;
end.

Answer 1

前面要
Uses Windows;不然编译通不过的。