盒子论坛 v2.1

禁止运用程序2次运行，高手帮忙，这样怎么不行呀？

program Project2;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1};

var
Hwnd:THandle;

{$R *.res}
begin

Hwnd:=FindWindow('TForm1','Form1'); //查找是否已有窗体Form1
if Hwnd<>0 then begin
SetForegroundWindow(Hwnd); //激活已运行的程序实例，但程序最小化时无效
Application.Terminate; //终止本次实例
end

else begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;
end.

----------------------------------------------
生命是一场战斗，我们都是天生的战士，披战衣，上沙场，兵来将挡，水来土掩，受伤了，自己躲到一角舔伤口，休息一会再上沙场，渐渐地，受伤不再是一个伤口，而是一种习惯。

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/6/10 10:52:58

1楼：

Hwnd := FindWindow('TForm1', 'Form1'); //查找是否已有窗体Form1
if Hwnd <> 0 then
begin
  if IsIconic(Application.Handle) then Application.Restore;
  SetForegroundWindow(Hwnd); //激活已运行的程序实例，但程序最小化时无效
  Application.Terminate; //终止本次实例
end

建议你用CreateMutex代替FindWindow
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复