我的应用程序如何推出?

3 delphi

如何确定我的应用程序是否由用户启动?例如,如果双击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;
Run Code Online (Sandbox Code Playgroud)

欣赏你的想法.

谢谢.

Rem*_*eau 5

唯一的方法是通过将命令行参数传递到应用程序的快捷方式启动应用程序.直接单击该文件不会传递任何参数.