Java教程

关于禁止程序重复启动的另一种需要与实现

本文主要是介绍关于禁止程序重复启动的另一种需要与实现，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！
关于禁止程序重复启动的另一种需要与实现
手头的程序需要禁止重复启动, 但需要保留新的、关闭旧的.

我想还是从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可:

{ 函数 }
procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string);
var
  h: HWND;
  buf: array[0..255] of Char;
begin
  h := ACurrentWindow;
  while h > 0 do
  begin
    h := GetWindow(h, GW_HWNDNEXT);
    GetClassName(h, buf, Length(buf));
    if buf = AClassName then
    begin
      SendMessage(h, WM_CLOSE, 0, 0);
      Break;
    end;
  end;
end;

{ 调用 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  CloseSameClassNameWindow(Handle, ClassName);
end;

从程序文件中控制更简单, 一句话:

program Project1;

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

{$R *.res}

begin
  Application.Initialize;
  SendMessage(FindWindow('TForm1', nil), WM_CLOSE, 0, 0); //假如主窗体的类名是 TForm1
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
posted on 2011-10-12 00:31  万一  阅读(4356)  评论(6)  编辑  收藏
这篇关于关于禁止程序重复启动的另一种需要与实现的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！
您可能喜欢
栏目导航