delphi程序只能打开一个的方法

《delphi程序只能打开一个的方法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、工作上，避免我的Upload在一个电脑上被打开多个。1、新建一个unit名字是保存为'once.pas'，内容如下：unitonce;interfaceusesWindows,Messages,SysUtils,Classes,Forms;implementationconstSTR_UNIQUE='{2BE6D96E-827F-4BF9-B33E-8740412CDE96}';MI_ACTIVEAPP=1;{激活应用程序}MI_GETHANDLE=2;{取得句柄}variMessageID:Integer;OldWProc:TFNWndProc;MutHandle:THandle;B

2、SMRecipients:DWORD;functionNewWndProc(Handle:HWND;Msg:Integer;wParam,lParam:Longint):Longint;stdcall;beginResult:=0;ifMsg=iMessageIDthenbegincasewParamofMI_ACTIVEAPP:{激活应用程序}iflParam<>0thenbegin{收到消息的激活前一个实例}{为什么要在另一个程序中激活?}{因为在同一个进程中SetForegroundWindow并不能把窗体提到最前}ifIsIconic(lParam)thenOpenIcon(l

3、Param)elseSetForegroundWindow(lParam);Application.Terminate;{终止本实例}end;MI_GETHANDLE:{取得程序句柄}beginPostMessage(HWND(lParam),iMessageID,MI_ACTIVEAPP,Application.Handle);end;end;endelseResult:=CallWindowProc(OldWProc,Handle,Msg,wParam,lParam);end;procedureInitInstance;begin{取代应用程序的消息处理}OldWProc:=TFN

4、WndProc(SetWindowLong(Application.Handle,GWL_WNDPROC,Longint(@NewWndProc)));{打开互斥对象}MutHandle:=OpenMutex(MUTEX_ALL_ACCESS,False,STR_UNIQUE);ifMutHandle=0thenbegin{建立互斥对象}MutHandle:=CreateMutex(nil,False,STR_UNIQUE);endelsebeginApplication.ShowMainForm:=False;{已经有程序实例,广播消息取得实例句柄}BSMRecipients:=BS

5、M_APPLICATIONS;BroadCastSystemMessage(BSF_IGNORECURRENTTASKorBSF_POSTMESSAGE,@BSMRecipients,iMessageID,MI_GETHANDLE,Application.Handle);end;end;initialization{注册消息}iMessageID:=RegisterWindowMessage(STR_UNIQUE);InitInstance;finalization{还原消息处理过程}ifOldWProc<>NilthenSetWindowLong(Application.Handle

6、,GWL_WNDPROC,LongInt(OldWProc));{关闭互斥对象}ifMutHandle<>0thenCloseHandle(MutHandle);end.2、把这个once.pas考到upload（我的工作程序里），然后打开UpLoad程序（也可以是你自己的程序），点击Project---->AddtoProject然后选中once.pas点确定，编译执行你的程序就可以了。3、这样你的程序，就在一个电脑上只能打开一个，防止重复打开。