为了解决重复运行的问题而引入MultInst,现在却没法去除了...在线请教(50)

为了解决重复运行的问题,从网上找到一段代码MultInst.pas,加入project后,编译通过,运行也有效,但当我从Project中去掉MultInst.pas,再进行编译,却总出现这个错误:[Fatal Error] :File not found:'MultInst.dcu',我明明已经把MultInst从project中移掉了,而且没有在任何地方调用啊......在线请教各位大虾,同行,如何解决这个问题.先谢了!运行环境:WINXP,DELPHI7附:MultInst.pas代码//==============================================================================// Unit Name: MultInst// Author : ysai// Date : 2003-05-20// Purpose : 解决应用程序多实例问题// History ://==============================================================================//==============================================================================// 工作流程// 程序运行先取代原有向所有消息处理过程,然后广播一个消息.// 如果有其它实例运行,收到广播消息会回发消息给发送程序,并传回它自己的句柄// 发送程序接收到此消息,激活收到消息的程序,然后关闭自己//==============================================================================unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; //激活应用程序 MI_GETHANDLE = 2; //取得句柄var iMessageID : Integer; OldWProc : TFNWndProc; MutHandle : THandle; BSMRecipients : DWORD;function NewWndProc(Handle: HWND; Msg: Integer; wParam, lParam: Longint): Longint; stdcall;begin Result := 0; if Msg = iMessageID then begin case wParam of MI_ACTIVEAPP: //激活应用程序 if lParam<>0 then begin //收到消息的激活前一个实例 //为什么要在另一个程序中激活? //因为在同一个进程中SetForegroundWindow并不能把窗体提到最前 if IsIconic(lParam) then OpenIcon(lParam) else SetForegroundWindow(lParam); //终止本实例 Application.Terminate; end; MI_GETHANDLE: //取得程序句柄 begin PostMessage(HWND(lParam), iMessageID, MI_ACTIVEAPP, Application.Handle); end; end; end else Result := CallWindowProc(OldWProc, Handle, Msg, wParam, lParam);end;procedure InitInstance;begin //取代应用程序的消息处理 OldWProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc))); //打开互斥对象 MutHandle := OpenMutex(MUTEX_ALL_ACCESS, False, STR_UNIQUE); if MutHandle = 0 then begin //建立互斥对象 MutHandle := CreateMutex(nil, False, STR_UNIQUE); end else begin Application.ShowMainForm := False; //已经有程序实例,广播消息取得实例句柄 BSMRecipients := BSM_APPLICATIONS; BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE, @BSMRecipients, iMessageID, MI_GETHANDLE,Application.Handle); end;end;initialization //注册消息 iMessageID := RegisterWindowMessage(STR_UNIQUE); InitInstance;finalization //还原消息处理过程 if OldWProc <> Nil then SetWindowLong(Application.Handle, GWL_WNDPROC, LongInt(OldWProc)); //关闭互斥对象 if MutHandle <> 0 then CloseHandle(MutHandle);end. //使用方法很简单,只要把此单元加入工程就可以了.

全文搜索【MultInst】，看哪里引用了。

program Project1;uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1};Resourcestring FMutex = '{CF6772EB-A1EF-442C-87CB-02C94AE0D6D5}'; //ctrl+shif+g{$R *.res}Var hMutex: HWND; iRet: integer;begin Application.Initialize; HMutex := CreateMutex(Nil, False, PChar(FMutex)); iRet := GetLastError; if iRet <>ERROR_ALREADY_EXISTS then Begin Application.CreateForm(TForm1, Form1); Application.Run; End else Begin ReleaseMutex(hMutex); //Application.MessageBox(Pchar('&sup3;&Igrave;&ETH;ò&Otilde;&yacute;&Ocirc;&Uacute;&Ocirc;&Euml;&ETH;&ETH;...'), '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;', 64); End;end.

全文搜索了,没有地方引用啊

那就奇怪了，那再把她引用进来，再全文搜索，做标记，再移除。good luck!用我提供的这个方法，轻松实现防止2次启动。

那个引用不会还在项目文件里吧？

不在了,而且这个引用只是将其加入项目,并没有在什么地方显式的引用到

多编译几次呢。我用D2007时，经常出现 提示某个单元DCU 没有，其实一切都正常。

大不了，重新新建一个项目。加入 原来的单元。

是不是你的资源文件引用了她!

wql:怎么看资源文件是不是引用了他?

多人接受答案了。