delphi怎样提示该软件是否已打开？

Question

当我打开软件时检查该软件是否打开 如果已打开怎么样提示该软件已经打开并恢复显示已打开的软件 。
                                      哪位高手知道想代码怎么写请指教
                                        小弟感谢了

Answer 1

var  main_handle:Hwnd;
begin
  main_handle:=winprocs.findwindow(nil,'xxxx管理系统');
  if main_handle>0 then
  begin
    showmessage('xxxx管理系统已经打开,请检查!'); //target:find the active form ways    exit;
  end;

Answer 2

<<delphi5开发人员指南>>中有一篇（防止同时出现多个应用程序什么的），有很详细的说明，并且带有源程序。
顺便说一下使用findwindow是有缺陷的，至于什么缺陷，该篇文章也说的很清楚

Answer 3

unit MultInst;interface
const
  MI_QUERYWINDOWHANDLE=1;
  MI_RESPONDWINDOWHANDLE=2;  MI_ERROR_NONE=0;
  MI_ERROR_FAILSUBCLASS=1;
  MI_ERROR_CREATINGMUTEX=2;  function GetMiError:Integer;implementationuses Forms,Windows,SysUtils;const
  UniqueAppStr='DDG.MyProgram';var
  MessageId:Integer;
  WProc:TFNWndProc;
  MutHandle:THandle;
  MIError:Integer;function GetMIError:Integer;
begin
  Result:=MIError;
end;function NewWndProc(Handle:HWND;Msg:Integer;wParam,lParam:Longint):Longint;stdCall;
begin
  Result:=0;
  if Msg=MessageID then
  begin
    case wParam of
      MI_QUERYWINDOWHANDLE:
      begin
        if IsIconic(Application.Handle) then
        begin
          Application.MainForm.WindowState:=wsNormal;
          Application.Restore;
        end;
        PostMessage(HWND(lParam),MessageID,MI_RESPONDWINDOWHANDLE,Application.MainForm.Handle);
      end;
      MI_RESPONDWINDOWHANDLE:
      begin
        SetForegroundWindow(HWND(lParam));
        Application.Terminate;
      end;
    end;
  end
  else
    Result:=CallWindowProc(WProc,Handle,Msg,wParam,lParam);
end;procedure SubClassApplication;
begin
  WProc:=TFNWndProc(SetWindowLong(Application.Handle,GWL_WNDPROC,Longint(@NewWndProc)));
  if WProc=nil then
    MIError:=MIError or MI_ERROR_FAILSUBCLASS;
end;procedure DoFirstInstance;
begin
  MutHandle:=CreateMutex(nil,False,UniqueAppStr);
  if MutHandle=0 then
    MIError:=MIError or MI_ERROR_CREATINGMUTEX;
end;procedure BroadcastFocusMessage;
var
  BSMRecipients:DWORD;
begin
  Application.ShowMainForm:=false;
  BSMRecipients:=BSM_APPLICATIONS;
  BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,
    @BSMRecipients,MessageID,MI_QUERYWINDOWHANDLE,Application.Handle);
end;procedure InitInstance;
begin
  SubClassApplication;
  MutHandle:=OpenMutex(MUTEX_ALL_ACCESS,False,UniqueAppStr);
  if MutHandle=0 then
  begin
    DoFirstInstance;
  end
  else
    BroadcastFocusMessage;
end;initialization
  MessageID:=RegisterWindowMessage(UniqueAppStr);
  InitInstance;finalization
  if WProc<>Nil then
    SetWindowLong(Application.Handle,GWL_WNDPROC,LongInt(WProc));
  if MutHandle<>0 then CloseHandle(MutHandle);
end.把这个单元加到你工程里就行了

Answer 4

用findprocess做检查是否存在该进程

Answer 5

这个是好问题了，搜一下以前的问题应该能找到不少
用Windows的互斥对象类似这样{$R *.res}var
  Handle: THandle;begin
  Handle := CreateMutex(nil, false, 'My Program');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    ReleaseMutex(Handle);
  end
  else
  begin 
    Handle := FindWindow(nil, 'Form1');
    if Handle <> 0 then
    begin
      SetForegroundWindow(Handle);
      SetActiveWindow(Handle);
    end;   
  end;
end;这段代码放在项目文件.dpr中