如何防止一个程序多次运行！？(30分)

鹦鹉 · 2001-11-02

各位大虾，我编一个小东东，在注册表里的  HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run和 HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Runservices 两个键里都写了运行，希望小东东能够在开机的时候就运行，在注销一个用户后重新 进入也能运行。但是开机之后他会启动程序两次，同时运行着两个程序。 如何解决这个问题！？

卷起千堆雪tyn · 2001-11-02

防止程序运行多个例程： var   hMutex : Thandle;   WaitResult : word;   BroadcastList : DWORD; begin      MessageID := RegisterWindowMessage('Check For Choice Previous Inst'); // register a message to use later on      hMutex := createMutex(nil,false,pchar('App_Choice')); // grab a mutex handle      WaitResult := WaitForSingleObject(hMutex,10); // wait to see if we can have exclusive use of the mutex      if ( waitResult = WAIT_TIMEOUT ) then // if we can't then broadcast the message to make the owner of the mutex respond      { request that the running application takes focus }        begin           BroadcastList := BSM_APPLICATIONS;           BroadcastSystemMessage( BSF_POSTMESSAGE,@BroadcastList,MessageID,0,0); //32 bit - broadcast the message to all apps - only a prev inst will hear it.        end      else       begin       { do the normal stuff}       Application.Title := 'Choice Organics Purchase & Sales System';       Application.CreateForm(TMainForm, MainForm);       Application.Run;       ReleaseMutex(hMutex); // release the mutex as a politeness       end;       CloseHandle(hMutex); // close the mutex handle end. This goes in the MainForm procedure Tmainform.OnAppMessage(var Msg : TMsg ; Var Handled : Boolean); begin { If it's the special message then focus on this window} if Msg.Message = MessageID then // if we get the broadcast message from an another instance of this app that is trying to start up    begin       show;       WindowState := wsMaximized;       BringToFront;       SetFocus;       Handled := true;    end; end; //And this goes in the TMainForm.FormCreate ;- Application.OnMessage:= OnAppMessage;

老赵 · 2001-11-02

program Project1; uses   Forms,   Windows,   Messages,   Unit1 in 'Unit1.pas' {Form1}, {$R *.RES} var   hmutex:hwnd;   ret:integer; begin   Application.Initialize;   hmutex:=createmutex(nil,false,'project1');   ret:=getlasterror;   if ret<>error_already_exists then   begin   Application.CreateForm(TForm1, Form1);   Application.Run;   end  else  begin   messagedlg('程序已运行。',mtinformation,[mbok],0);   releasemutex(hmutex);   end; end. 最简单有效。

pingbaoshi · 2001-11-02

借化纤。。 function DoIExist(WndTitle : String) : Boolean; var   hSem    : THandle;   hWndMe,   hWndPrev : HWnd;   semNm,   wTtl    : Array[0..256] of Char; begin   Result := False;   //Initialize arrays   StrPCopy(semNm, 'SemaphoreName');   StrPCopy(wTtl, WndTitle);   //Create a Semaphore in memory - If this is the first instance, then   //it should be 0.   hSem := CreateSemaphore(nil, 0, 1, semNm);   //Now, check to see if the semaphore exists   if ((hSem <> 0) AND (GetLastError() = ERROR_ALREADY_EXISTS)) then begin     CloseHandle(hSem);     //We'll first get the currently executing window's handle then change its title     //so we can look for the other instance     hWndMe := FindWindow(nil, wTtl);     SetWindowText(hWndMe, 'zzzzzzz');     //What we want to do now is search for the other instance of this window     //then bring it to the top of the Z-order stack.     hWndMe := FindWindow(nil, wTtl);     if (hWndMe <> 0) then begin       if IsIconic(hWndMe) then         ShowWindow(hWndMe, SW_SHOWNORMAL)       else         SetForegroundWindow(hWndMe);     end;     Result := True;     //Could put the Halt here, instead of in the FormCreate method,     //unless you want to do some extra processing.     //Halt;   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   if DoIExist(Self.Caption) then      Halt; end;

nsj · 2001-11-02

可以用FINDWINDOW这个API函数; 或者用MUTEX.创建互斥元.

HD_Copy · 2001-11-02

http://www.delphibbs.com/delphibbs/dispq.asp?lid=219580 http://www.delphibbs.com/delphibbs/dispq.asp?lid=180088 http://www.delphibbs.com/delphibbs/dispq.asp?lid=120862 http://www.delphibbs.com/delphibbs/dispq.asp?lid=245267 这样的帖子太多了

鹦鹉 · 2001-11-02

thank all 4 u

HD_Copy · 2001-11-02

个人看法，仅供参考： 我总认为FINDWINDOW的方法最不可靠，因为如果你的程序在初始化时很耗费时间，这样， 当我快速、多次双击这个应用程序的图标时，就会因为第一个窗口还没来得及生成，而 启动了多个实例

如何防止一个程序多次运行！？(30分)

鹦鹉

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

pingbaoshi

Unregistered / Unconfirmed

nsj

Unregistered / Unconfirmed

HD_Copy

Unregistered / Unconfirmed

鹦鹉

Unregistered / Unconfirmed

HD_Copy

Unregistered / Unconfirmed

Similar threads