BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

if (exepath.Substring(0,1).toupper='C') or (exepath.Substring(0,1).toupper='D') then begin
      CreateGlobalCEFApp;

      if GlobalCEFApp.StartMainProcess then
        begin
          Application.Initialize;
          {$IFDEF DELPHI11_UP}
            Application.MainFormOnTaskbar := True;
          {$ENDIF}
          Application.CreateForm(TMiniBrowserFrm, MiniBrowserFrm);
          Application.CreateForm(TPreferencesFrm, PreferencesFrm);
          Application.CreateForm(TSimpleTextViewerFrm, SimpleTextViewerFrm);
          Application.CreateForm(TFindFrm, FindFrm);
          Application.Run;
        end;

      
        try
          //2022/10/9
        
            TThread.Sleep(500);   // sleep 0.5 second
            DestroyGlobalCEFApp;

            //GlobalCEFApp.Free;


        except
            on e : exception do begin
              showmessage(e.Message);
            end;
        end;
    end else begin
         showmessage('請在c 或 D 磁碟執行本程式');
    end;