delphi11中的自动启动和关闭unigui应用服务器

最新推荐文章于 2025-05-20 11:09:07 发布

原创

最新推荐文章于 2025-05-20 11:09:07 发布 · 532 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#unigui #delphi11 #调试 #chrome #shutdown

文章介绍了如何在Delphi项目中利用VCL和ShellAPI编写代码，实现通过调用`ShellExecute`函数自动启动Chrome浏览器访问特定web页面，并处理可能出现的错误情况。

1、设置。

注意：全部。

taskkill /f /im $(OUTPUTFILENAME)  2>1 || exit /B 0

自动运行chrome打开unigui网页

unit ServerModule;

interface

uses
Winapi.ShellAPI, vcl.Dialogs;

type
  TUniServerModule = class(TUniGUIServerModule)
    procedure UniGUIServerModuleCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure FirstInit; override;
  public
    { Public declarations }
  end;

function UniServerModule: TUniServerModule;

implementation

{$R *.dfm}

uses
  UniGUIVars;


procedure ExploreWeb(page: PChar);
var
  Returnvalue: Integer;
begin
  Returnvalue := ShellExecute(0, 'open', 'chrome.exe', pa