如何避免一个程序的多个例程同时运行？(100分)

FreeFish · 2001-08-19

我在程序里想避免同时运行该程序的多个例程（因为该程序含有一个闪 现窗口，我将防止运行多个例程的代码写在闪现窗口的OnCreate事件里）。 虽然这样也能够避免了多个例程同时运行，但每运行一次此程序，闪现 窗口也跟着出现。请问有什么好的办法可以避免这种现象的发生，即在 内存中没有运行此程序的情况下，闪现窗口正常出现；而在内存中已经 运行了该程序的情况下，闪现窗口不会出现。而无论在那种情况下，都 要保证整个系统只能有一个例程在运行。以上情况与"金山词霸2001"启 动时情况相似。请问各位高手能否有其它更好的办法实现？（附程序代码） //以下为项目文件Project1 Uses    Forms,    Unit1 in 'Unit1.pas' {MainForm},    Unit2 in 'Unit2.pas' {SplashForm}; {$R*.RES} begin    Application.Initialize;    SplashForm:=TSplashForm.Create(Application);    SplashForm.Show;    SplashForm.Update;    //SplashForm中放置了TTimer组件，其Enabled属性为True,    //其Interval属性为2500，其OnTimer事件代码    // 为：DelayTimer.Enabled:=False    While (SplashForm.DelayTimer.Enabled) do       Application.ProcessMessage;    Application.CreateForm(TMainForm,MainForm);    SplashForm.Hide;    SplashForm.Free;    Application.Run; end. //以下为单元文件Unit2 procedure TSplashForm.FormCreate(Sender:TObject); var    S:string;    HOldWindow:HWND;    AppName:array[0..255] of char; begin    S:=Application.Title;    StrpCopy(AppName,S);    Application.Title:='wjy'+inttostr(HInstance);    HOldWindow:=FindWindow(nil,AppName);    Application.Title:=S;    if HOldWindow<>0 then       begin          ShowWindow(HOldWindow,SW_Restore);          Application.Terminate;           end; end;

Kent · 2001-08-19

不要放在Splash窗口的create事件中，直接放在TApplication的启动代码中， //以下为项目文件Project1 Uses    Forms,    Unit1 in 'Unit1.pas' {MainForm},    Unit2 in 'Unit2.pas' {SplashForm}; {$R*.RES} begin    Application.Initialize; ！   放在这里 ！    SplashForm:=TSplashForm.Create(Application);    SplashForm.Show;    SplashForm.Update;    //SplashForm中放置了TTimer组件，其Enabled属性为True,    //其Interval属性为2500，其OnTimer事件代码    // 为：DelayTimer.Enabled:=False    While (SplashForm.DelayTimer.Enabled) do       Application.ProcessMessage;    Application.CreateForm(TMainForm,MainForm);    SplashForm.Hide;    SplashForm.Free;    Application.Run; end.

terry_lzs · 2001-08-19

不要那么麻烦，在.dpr文件中就能实现 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   releasemutex(hmutex);

li2 · 2001-08-19

我的例子,将判断写在项目文件里不就可以了吗? 如何让程式只执行一份?  program DEL3test;  uses  Forms,Windows,SysUtils,  DEL3unit in 'DEL3unit.pas' {Form1};  {$R *.RES}  Var     hMutex:HWND;     Ret:Integer;  begin   Application.Initialize;   Application.Title := 'aaaaaa';   hMutex:=CreateMutex(nil,False,'aaaaaa');   Ret:=GetLastError;   If Ret<>ERROR_ALREADY_EXISTS Then    Begin     Application.CreateForm(TForm1, Form1);     Application.Run;    End   Else    Application.MessageBox('Run Twice!','Notes!',MB_OK);   ReleaseMutex(hMutex);  end.

FreeFish · 2001-08-19

多人接受答案了。

FreeFish · 2001-08-19

Terry_lzs和Li2两位大侠，我用了上述的方法，的确是可以防止多个例程同时 运行，但后来又遇上了一个小小的问题：即当第一个例程处于最小化的时候， 再次运行该程序并不能够激活第一个例程并使之恢复到原始窗口大小？

terry_lzs · 2001-08-20

这个也没有什么问题，不过你要自己写代码，没有现成的函数或者是过程。自己定义消息传 送给第一个例程，把代码添加在releasemutex(hmutex)前面就行。

如何避免一个程序的多个例程同时运行？(100分)

FreeFish

Unregistered / Unconfirmed

Kent

Unregistered / Unconfirmed

terry_lzs

Unregistered / Unconfirmed

li2

Unregistered / Unconfirmed

FreeFish

Unregistered / Unconfirmed

FreeFish

Unregistered / Unconfirmed

terry_lzs

Unregistered / Unconfirmed

Similar threads