？如何使程序只执行一次，第二次执行时自动激活或从图标还原。(100分)

圣哥 · 2001-09-07

同一个记事本可以被打开很多次，如何使它只被执行依一次呢？

iseek · 2001-09-09

防止程序运行多个例程?   More than one instance of program? 回答  This is copied direct from my *.dpr file. You can work it for your own use. 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;

lai-sha · 2001-11-27

同上 --简/明       第二次执行时自动从systray图标还原 (*.DPR {$R *.RES} VAR P:HWND; begin P := FindWindow (nil,'录放'); if P<> 0 then  begin Messagebox(0,'程序已经在运行！ ','录放器',mb_ok or MB_ICONWARNING); ShowWindow(P,SW_RESTORE); //这一行 //第二次执行时自动激活或从图标还原   halt(0);   end; Application.Title := '录放';// Title ///////////////////////////////////////////   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

？如何使程序只执行一次，第二次执行时自动激活或从图标还原。(100分)

圣哥

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

lai-sha

Unregistered / Unconfirmed

Similar threads