Question

我有一个delphi应用程序，在启动时检查进程是否已在运行，如果它正在运行，我将数据传递给该进程并终止当前进程。问题：在终止当前进程时，应用程序窗口在终止前闪烁一秒钟。在创建主表单之前，所有代码都在应用程序初始化中，所以我不明白它如何能够瞬间显示表单。我尝试过很多东西，比如让窗户看不见，似乎没什么用。有什么我做错了。

Answer 1

你显然没有尽快终止。我会做类似

的事情

program Project1;

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

{$R *.res}

function PrevInstance: boolean;
begin
  ...
end;

procedure PassData;
begin
  ...
end;

begin

  if PrevInstance then
  begin
    PassData;
    Exit;
  end;


  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

更新：我相信你会做类似的事情

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure MyInitProc;
begin
  if true then Application.Terminate;
end;

initialization
  InitProc := @MyInitProc;

end.

这将 not 工作，因为Application.Terminate不会立即终止应用程序。相反，它只是posts a WM_QUIT message。所有初始化完成后，将收到此消息并采取措施。

终止前显示窗口

1 个答案: