delphi - 我的应用程序是如何启动的？

Question

如何确定我的应用程序是否由用户启动？例如，如果双击 Exe，或右键单击 > 从 Windows 资源管理器中打开。

我需要一个函数来确定上述内容，例如:

function AppWasExecutedByUser: Boolean;
begin
  //
end;

procedure TForm1.OnCreate(Sender: TObject);
begin
  if AppWasExecutedByUser then
    ShowMessage('User opened the exe by double clicking in Windows')
  else
    ShowMessage('Application was opened some other way');
end;

欣赏您的想法。

谢谢。

Answer 1

执行此操作的唯一方法是从将命令行参数传递到应用程序的快捷方式启动应用程序。直接点击文件，不传递任何参数。