小弟使用了OpenMutex(MUTEX_ALL_ACCESS, False, "TITLE1" ); 去判斷該程式有沒有在執行中, 可是現在遇到一個問題, 若用工作管理員的處裡程序去關閉該程式, 在重新執行程式都會偵測到該TITLE還在, 請教各位大大有什麼方法可以解決這個問題嗎?

您好: 試試看用FindWidow的方法

function IsExecute(filename:string):boolean;
var MyWnd : Thandle;
begin MyWnd:=FindWindow(nil, pchar(filename));
result:=MyWnd<>0;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
if IsExecute('project1') then application.terminate
end;

參考這篇http://delphi.ktop.com.tw/topic.php?topic_id=20777

參考以下程式碼。

  function BroadcastSystemMessage(Flags: DWORD; Recipients: PDWORD;
  uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint;
  stdcall; external 'user32.dll';    const
  MI_NO_ERROR = 0;
  MI_FAIL_SUBCLASS = 1;
  MI_FAIL_CREATE_MUTEX = 2;    function GetMIError: Integer;    var
  Form1: TForm1;    implementation    {$R *.DFM}    const
  UniqueAppStr = 'TITLE1';    var
  MessageID: Integer;
  WProc: TFNWndProc = nil;
  MutHandle: THandle = 0;
  MIError: Integer = 0;    function GetMIError: Integer;
begin
  Result := MIError;
end;    function NewWndProc(Handle: HWND; Msg: Integer; wParam, lParam: Longint):
  Longint; stdcall;
begin
  if Msg = MessageID then
  begin
    Result := 0;
    if IsIconic(Application.Handle) then
    begin
      Application.MainForm.WindowState := wsNormal;
      Application.Restore;
    end;
    SetForegroundWindow(Application.MainForm.Handle);
  end
  else
    Result := CallWindowProc(WProc, Handle, Msg, wParam, lParam);
end;    procedure InitInstance;
var
  BSMRecipients: DWORD;
begin
  MutHandle := OpenMutex(MUTEX_ALL_ACCESS, False, UniqueAppStr);
  if MutHandle = 0 then
  begin
    WProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC,
      Longint(@NewWndProc)));
    if WProc = nil then
      MIError := MIError or MI_FAIL_SUBCLASS;
    MutHandle := CreateMutex(nil, False, UniqueAppStr);
    if MutHandle = 0 then
      MIError := MIError or MI_FAIL_CREATE_MUTEX;
  end
  else
  begin
    Application.ShowMainForm := False;
    BSMRecipients := BSM_APPLICATIONS;
    BroadcastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,
      @BSMRecipients, MessageID, 0, 0);
    Application.Terminate;
  end;
end;    initialization
  MessageID := RegisterWindowMessage(UniqueAppStr);
  InitInstance;
finalization
  if WProc <> nil then
    SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(WProc));
end.

在主視窗中引用就可以了。

感謝supman大大的回覆 不過我的程式HIDE起來了 沒辦法用FindWindow方式去找到它 ^^"

非常感謝wameng版大 用您的方法解決了這個問題 也感謝supman 熱心幫忙