要实现这个功能：运行程序时，现在判断这个程序是否已经运行，是：就显示那个程序的窗口为当前窗口，没有就继续运行。我做了一个代码如下：（但有个错误提示：Error

ansili · 2003-03-18

要实现这个功能：运行程序时，现在判断这个程序是否已经运行，是：就显示那个程序的窗口为当前窗口，没有就继续运行。我做了一个代码如下：（但有个错误提示：Error in module XXX:Call to Application createForm is Missing or Incorre） (50分) 在工程文件里： var     hMutex: HWND;     Ret: Integer;                 {$R *.res} begin     Application.Initialize;     Application.Title := 'XXXX';   hMutex:=CreateMutex(nil,False,'XXXX');   Ret:=GetLastError;   If Ret=ERROR_ALREADY_EXISTS Then     ReleaseMutex(hMutex)   else   begin     Application.CreateForm(TMainForm, MainForm);   Application.Run;   end; end. 或者是下面的代码： begin   Application.Initialize;   if ShowWindow(FindWindow(nil,PChar(Application.Title),SW_SHOW)then     application.Terminate;   Application.CreateForm(TForm1, Form1);   Application.Run； end. 请问什么原因？如何修改。在线等待！！！！！！！！！！

sunrainwang · 2003-03-18

看看我的程序： program AppServer; uses   SvcMgr,   Forms,   Windows,   SysUtils,   WinSvc,   PipeAppServer_TLB in 'PipeAppServer_TLB.pas',   RDM_GDgh_svr in 'Replace/RDM_GDgh_svr.pas' {RDM_gdgh: TRemoteDataModule},   DM_PIPEMIS in 'Overhaul/DM_PIPEMIS.pas' {DM_PipeServer: TRemoteDataModule},   U_rdm_jxjh_print in 'Overhaul/U_rdm_jxjh_print.pas' {RDM_Jxjh_Print: TRemoteDataModule},   U_datamodule in 'BaseInfo/data/U_datamodule.pas' {DM_LINFU: TRemoteDataModule} {DM_LINFU: CoClass},   RDM_GDCBFX in 'Lacuna/RDM_GDCBFX.pas' {RDM_cbqxfx: TRemoteDataModule} {RDM: CoClass},   U_rdm_zxjc in 'OnLine/Check/U_rdm_zxjc.pas' {Rdm_zxjc: TRemoteDataModule} {Rdm_zxjc: CoClass},   U_DMJBXXCX in 'BaseInfo/Query/U_DMJBXXCX.pas' {DM_jbxxcx: TRemoteDataModule},   DM_chfx in 'OnLine/MeasureThickNess/DM_chfx.pas' {Mid_CH: TRemoteDataModule} {Mid_CH: CoClass},   U_RDM_AcdntRgdt in 'AcdntRgdt/U_RDM_AcdntRgdt.pas' {RDM_AcdntRgdt: TRemoteDataModule} {RDM_AcdntRgdt: CoClass},   U_RDMLnJxjlcx in 'Overhaul/U_RDMLnJxjlcx.pas' {RDMLnJxjlcx: TRemoteDataModule} {RDMLnJxjlcx: CoClass},   ScktMain in 'SocketServer/ScktMain.pas' {SocketForm},   ScktCnst in 'SocketServer/ScktCnst.pas'; {$R *.TLB} {$R *.RES} function Installing: Boolean; begin   Result := FindCmdLineSwitch('INSTALL',['-','/','/'], True) or             FindCmdLineSwitch('UNINSTALL',['-','/','/'], True); end; function StartService: Boolean; var   Mgr, Svc: Integer;   UserName, ServiceStartName: string;   Config: Pointer;   Size: DWord; begin   Result := False;   Mgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);   if Mgr <> 0 then   begin     Svc := OpenService(Mgr, PChar(SServiceName), SERVICE_ALL_ACCESS);     Result := Svc <> 0;     if Result then     begin       QueryServiceConfig(Svc, nil, 0, Size);       Config := AllocMem(Size);       try         QueryServiceConfig(Svc, Config, Size, Size);         ServiceStartName := PQueryServiceConfig(Config)^.lpServiceStartName;         if CompareText(ServiceStartName, 'LocalSystem') = 0 then           ServiceStartName := 'SYSTEM';       finally         Dispose(Config);       end;       CloseServiceHandle(Svc);     end;     CloseServiceHandle(Mgr);   end;   if Result then   begin     Size := 256;     SetLength(UserName, Size);     GetUserName(PChar(UserName), Size);     SetLength(UserName, StrLen(PChar(UserName)));     Result := CompareText(UserName, ServiceStartName) = 0;   end; end; begin   if not Installing then   begin     CreateMutex(nil, True, 'SCKTSRVR');     if GetLastError = ERROR_ALREADY_EXISTS then     begin       Application.MessageBox('服务器已经运行！','错误',MB_OK+MB_ICONERROR);       Halt;     end;   end;   if Installing or StartService then   begin     SvcMgr.Application.Initialize;     SocketService := TSocketService.CreateNew(SvcMgr.Application, 0);     SvcMgr.Application.Title := '应用程序服务器';   Application.CreateForm(TForm1, Form1);   SvcMgr.Application.Run;   end else   begin     Forms.Application.ShowMainForm := False;     Forms.Application.Initialize;     Forms.Application.CreateForm(TForm1, Form1);     SocketForm.Initialize(False);     Forms.Application.Run;   end; end.

Yhhe · 2003-03-18

var   HMutex: HWND;   Ret: Integer; begin   Application.Initialize;   Application.Title:='干部多媒体信息综合查询';   HMutex:=CreateMutex(nil,False,'干部多媒体信息综合查询');   Ret:=GetLastError;   if Ret<>ERROR_ALREADY_EXISTS then begin     Application.CreateForm(TForm1, Form1);     Application.Run;   end;   ReleaseMutex(HMutex); end.

ansili · 2003-03-18

能不能说说为什么会有那个错误？怎么解决？

yyii_yyii · 2003-03-18

If Ret=ERROR_ALREADY_EXISTS Then     ReleaseMutex(hMutex) 这句话不对。 因为CreateMutex函数返回的是一个原子（ATOM），当你检测到它存在时，其实 是你程序的前一个实例向操作系统注册的，所以ReleaseMutex(hMutex)语句应该 放在程序销毁前。

ansili · 2003-03-18

多人接受答案了。

要实现这个功能：运行程序时，现在判断这个程序是否已经运行，是：就显示那个程序的窗口为当前窗口，没有就继续运行。我做了一个代码如下：（但有个错误提示：Error

ansili

Unregistered / Unconfirmed

sunrainwang

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

ansili

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

ansili

Unregistered / Unconfirmed

Similar threads

要实现这个功能：运行程序时，现在判断这个程序是否已经运行，是：就显示那个程序的窗口为当前窗口，没有就继续运行。 我做了一个代码如下：（但有个错误提示：Error

ansili

Unregistered / Unconfirmed

sunrainwang

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

ansili

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

ansili

Unregistered / Unconfirmed

Similar threads

要实现这个功能：运行程序时，现在判断这个程序是否已经运行，是：就显示那个程序的窗口为当前窗口，没有就继续运行。我做了一个代码如下：（但有个错误提示：Error