ringli

Thank you, the mails have arrived.

Done.

I have not received an email about an update either. Unfortunately, there is nothing in the spam folder either. Was there perhaps a problem sending the mail?

That is strange. I am also using Delphi 11.2 here. I have tested it a few more times now and currently the phenomenon is not traceable. If it occurs again I will try to narrow down the problem further.

I have made some changes to the BDSLauncher that may be useful to the general public. I had the problem that the rule "*\My Projects\Project Name\*.dproj" was not recognized as true by the used function "System.Masks.MatchesMask". Therefore I made the following changes in the unit "uBDSLauncherMainForm": Unit uBDSLauncherMainForm; Interface Uses ... Type ... // // Replacement for MatchesMask from Unit System.Masks // function PathMatchSpecEx(pszFile, pszSpec : LPCWSTR; dwFlags : DWORD) : HRESULT; stdcall; .... Implementation Uses ... // // Replacement for MatchesMask from Unit System.Masks // function PathMatchSpecEx; external 'shlwapi.dll' name 'PathMatchSpecExW'; function BDSMatchesMask(const pszFile, pszSpec : String) : Boolean; const PMSF_NORMAL = $000000; PMSF_MULTIPLE = $00000001; begin Result := PathMatchSpecEx(PChar(pszFile), PChar(pszSpec), PMSF_NORMAL or PMSF_MULTIPLE) = S_OK; end; .... Function TBDSLauncherMainForm.OpenWithRules(Const inFileName, inDetectedVersion: String): Boolean; Var ... Begin ... For mask In rule.FileMasks.Split([sLineBreak]) Do //anymatch := anymatch Or MatchesMask(inFileName, mask); anymatch := anymatch Or BDSMatchesMask(inFileName, mask); ... Another change I have made in the unit "AE.IDE.DelphiVersions". Reason was here that there is with me in the Registry the path "HKCU\SOFTWARE\Embarcadero\BDS\_22.0". The underscore then led to the error "'_22' is not a valid integer value for type 'Integer'". Unit AE.IDE.DelphiVersions; Interface Uses ... Type ... Implementation Uses ... .... Procedure TAEDelphiVersions.DiscoverVersions(Const inRegistry: TRegistry; Const inDelphiVersionClass: TAEDelphiVersionClass); Var ... Begin ... //Self.AddVersion(inDelphiVersionClass.Create(Self, inRegistry.ReadString('App'), Integer.Parse(s.Substring(0, s.IndexOf('.'))))); var arr : TArray<string> := s.Split(['.']); var ver : Integer := StrToIntDef(arr[0], 0); if ver > 0 then begin Self.AddVersion(inDelphiVersionClass.Create(Self, inRegistry.ReadString('App'), ver)); end; Finally ...

Thanks for your explanation and your efforts. In one of my projects I am reading in a folder with more subfolders and outputting the search results in a ListView. The whole thing is already running in a simple thread, but sometimes it seems to hang a bit. Therefore I wanted to test if there is a better or simpler solution. I always tend to solve everything too complicated.

The project seems to be very interesting. So far I have no experience with an event bus to be able to estimate whether I can use the library in my small hobby projects. For me (and I'm sure for others) a few small practical examples would be very instructive. It would be great if you could upload some examples to the github repository.

Sorry for the late answer. Exporting the settings every time I quit and restoring them the next time I start up I don't think so much. A backup / restore function would certainly be helpful, with which you can save the complete settings if a purely portable version is not or only with difficulty possible.

Thanks for this great tool. It would be nice if it could be used optionally portable. For example via a file PORTABLE in the program directory. I don't own the DevExpress components, so I can't make the changes myself.

No answwer about that?

The tool seems interesting. How about an introductory offer for RAD Studio users or DelphiPraxis members?