diff --git a/demo/wasienv/regexp/regexphost.lpr b/demo/wasienv/regexp/regexphost.lpr index a8a5cf6..8ee541d 100644 --- a/demo/wasienv/regexp/regexphost.lpr +++ b/demo/wasienv/regexp/regexphost.lpr @@ -46,8 +46,20 @@ Type end; procedure TMyApplication.DoRun; +var + wasm : String; + begin - StartWebAssembly('wasmregexpdemo.wasm'); + Terminate; + if Assigned(HostConfig) and isString(HostConfig.wasmFilename) then + Wasm:=HostConfig.wasmFilename + else + begin + Wasm:=ParamStr(1); + if Wasm='' then + Wasm:='wasmregexpdemo.wasm'; + end; + StartWebAssembly(wasm); end; procedure TMyApplication.HandleLogClick(Event : TJSEvent);