老问题了，关于避免二次运行!

Question

你用这种方法呢
program test;uses
Forms,Windows,SysUtils；
{$R *.RES}Var
hMutex:HWND;
Ret:Integer;
begin
Application.Initialize;
Application.Title := 'test';
hMutex:=CreateMutex(nil,False,'test');
Ret:=GetLastError;
If Ret<>ERROR_ALREADY_EXISTS Then 
Begin
Application.CreateForm(TForm1, Form1);
Application.Run;
End
Else
Application.MessageBox('已经运行!','警告!',MB_OK);
ReleaseMutex(hMutex);
end.

Answer 1

begin
if not assigned(someform) then begin
application.createform.(Tsomeform,someform);
try 
someform.showmodal;
finally
domeform.free;
someform:=nil;
end;
end
else
someform.showmodal;
end; 

Answer 2

这样做我也试过，不能达到再次双击exe文件就把已运行的程序还原到最前窗口，只是出一个MessageBox而已。

Answer 3

to hxshanji(山鸡):不好意思，我的回答是针对summer1978(夏)的，我试试你的！

Answer 4

抱歉我那段一定要showmodal;针对有模窗体有用

Answer 5

也发给我一份，OK？
[email protected]

Answer 6

  if findwindow('TMainForm',nil)<>0 then
  begin
    halt; {退出程序}
 end;
'TMainForm' 是主 Form

Answer 7

to zou5655(周围):我还没收到。
我很急啊，真的没人能解决吗？

Answer 8

给我发一个。    [email protected]