Woll2Woll InfoPower 4K for RIO v20.0.2.3 Full source

Woll2Woll InfoPower Studio v20.0.2.3 for XE10.3 RIO = OK! --------------------- FOR DISABLE THE REGISTRATION FOREVER! --------------------------------- 1) comment the line in "procedure Register;" - then, "function CheckRegistration", never will be executed! // if not CheckRegistration then // exit; ********************************************************************************************** 0) I ALWAYS USE C:\EMBARCADERO as <<ROOT>> to my components install and RAD Studio! 1) -- SETTING PATH SEARCHES: -- Win32 and Win64 ------------------------- - Library Path => <<InfoPower4kRIO_path_root>>\source\windows (and [ <<InfoPower4kRIO_path_root>>\bin\20.0\Win32\Debug / ..\Win64\Debug ] if necessary) - Browser Path => <<InfoPower4kRIO_path_root>>\source\windows - DCU Debug Path => <<InfoPower4kRIO_path_root>>\bin\20.0\Win32\Debug / ..\Win64\Debug 2) -- <<dir_root>>\lib\*.* YOU DONT NEED IT ANYMORE! 3) -- the "BPL", "DCP" files, will be in "C:\Users\Public\Documents\Embarcadero\Studio\20.0" for default now! 4) -- your binarys (DCU, etc...) will be in "..\Bin\$(Platform)\$(Config)" -- Ex.: ..\Bin\Win32\Debug or ..\Win64\Debug *********************************************************************************************************************************** ---- NOW IT WILL INSTALL AND WORKS IN YOUR IDE! --------------------- VERIFICATION REQUIRED BY ORIGINAL INSTALLER FROM WOLL2WOLL WHEN BPL IS INSTALLED OR LOADED BY "IDE" --> 'c:\users\public\documents\InfoPower4k\20.0\demos\FirstTime.txt'; --> c:\ProgramData\Woll2Woll\Licensing\InfoPower4kRio.ini ERROR WHEN TRY COMPILER AND INSTALL BY IDE GROUP FILE MANUALLY: ---> see the line with: "stat:= ShellExecute(Application.handle, 'open', PChar(path + '\RegisterW2W4.exe'), PChar(cmdLine), nil, sw_shownormal);" Error validating Woll2Woll Registration Software: 2 \RegisterW2W4.exe ---> see the line with "if stat=2 then" and "path" value If you have not done so, please install software using a user account with administrative privileges. ---> see the line with "if (path='29825') then" ---> return TRUE and all its ok on verification if (path='29825') then begin result:=true; exit; end; ---------------------------------------------------------------------------------------------- function CheckRegistration: boolean; var cmdLine, Path: string; IPStudioReg: TRegIniFile; IPStudioRegInstall: TIniFile; count, checkSum: integer; stat: integer; ProgramData, regMask, RootDir: string; installFileName: string; FirstTime: string; FirstTimeFileName: string; publicDocDir: string; pathsUpdated: boolean; procedure AddSearchPath(Dir: string); var NewSearchPath: string; tempDir: string; begin tempDir:= rootDir + '\lib\20.0\'; if Dir.ToLower='android32' then tempDir:= tempDir + 'android' else tempDir:= tempDir + dir; NewSearchPath:= IPStudioReg.ReadString('\Software\Embarcadero\BDS\20.0\Library\' + Dir, 'Search Path', ''); if pos(RootDir.tolower, NewSearchPath.tolower)<=0 then begin NewSearchPath:= tempDir+ ';' + NewSearchPath; IPStudioReg.WriteString('\Software\Embarcadero\BDS\20.0\Library\' + Dir, 'Search Path', NewSearchPath); pathsupdated:= true; end; end; begin cmdLine := '"' + regProductName + '" "Software\Woll2Woll\' + registryName + '"';; //cmdLine:= cmdLine + ' SupportTrialInstall'; cmdLine:= cmdLine + ' SupportTrial'; {$ifdef wwEmbarcaderoVersion} cmdLine:= cmdLine + ' 10'; // support multiple versions in the future for Embarcadero Version {$endif} IPStudioReg := TRegIniFile.Create(''); ProgramData:= Sysutils.GetEnvironmentVariable('ALLUSERSPROFILE'); path:= IPStudioReg.ReadString('\Software\Woll2Woll\' + registryName, 'RegDir', ''); installFileName:= ProgramData + '\Woll2Woll\Licensing\' + registryName + '.ini'; publicDocDir:= GetPublicDoc; //IPStudioReg.ReadString('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', FirstTimeFileName:= publicDocDir +'\InfoPower4k\20.0\demos\FirstTime.txt'; if (path='') or FileExists(FirstTimeFileName) then // Must be user acount so copy local to user begin if FileExists(installFileName) then begin IPStudioRegInstall := TIniFile.Create(installFileName); path:= IPStudioRegInstall.ReadString('Install', 'RegDir', ''); Regmask:= IPStudioRegInstall.ReadString('Install', 'RegMask', ''); Rootdir:= IPStudioRegInstall.ReadString('Install', 'RootDir', ''); IPStudioRegInstall.Free; if regMask<>'' then IPStudioReg.WriteString('\Software\Woll2Woll\' + registryName, 'RegMask', regMask); if rootDir<>'' then IPStudioReg.WriteString('\Software\Woll2Woll\' + registryName, 'RootDir', rootDir); if path<>'' then IPStudioReg.WriteString('\Software\Woll2Woll\' + registryName, 'RegDir', path); if FileExists(FirstTimeFileName) then TFile.Delete(FirstTimeFileName); if RootDir<>'' then begin AddSearchPath('Win32'); AddSearchPath('Win64'); end; if pathsUpdated then MessageDlg( 'RAD Studio Library paths updated for InfoPower.' + #13 + 'Please restart Delphi for them to take effect.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbok], 0); end else begin showmessage('InfoPower Registration File not found: ' + installFileName); end; end; if (path='29825') then begin result:=true; exit; end; // Clear Registry result value IPStudioReg.WriteInteger('\Software\Woll2Woll\' + registryName, 'Checksum', 0); result:= false; try {$ifdef Unicode} //stat:= ShellExecute(0, 'open', PChar(path + '\RegisterW2W4.exe'), PChar(cmdLine), nil, sw_shownormal); stat:= ShellExecute(Application.handle, 'open', PChar(path + '\RegisterW2W4.exe'), PChar(cmdLine), nil, sw_shownormal); if stat=2 then begin Showmessage('Error validating Woll2Woll Registration Software: ' + inttostr(stat) + #13 + path + '\RegisterW2W4.exe' + #13#13 + 'If you have not done so, please install software using a user account with administrative privileges.'); exit; end; {$else} stat:= ShellExecute(Application.handle, 'open', PAnsiChar(path + '\RegisterW2W4.exe'), PAnsiChar(cmdLine), nil, sw_shownormal); if stat=2 then begin Showmessage('error running registration software: ' + inttostr(stat)); exit; end; {$endif} // Test if Registry result value is set and if not passed then exit count := 0; repeat sleep(1000); checkSum:= 0; checkSum:= IPStudioReg.ReadInteger('\Software\Woll2Woll\' + registryName, 'Checksum', checkSum); if (checkSum>0) then begin result:= true; break; end else if (checkSum<0) then begin result:= false; break; end; inc(count); until count>180000; finally IPStudioReg.DeleteKey('\Software\Woll2Woll\' + registryName, 'Checksum'); IPStudioReg.Free; end; end; procedure Register; var MainPaletteName, PrefixPaletteName: string; begin if not CheckRegistration then exit; {$IFDEF wwEmbarcaderoVersion} MainPaletteName := 'InfoPower Grids'; PrefixPaletteName := 'InfoPower'; {$ELSE} MainPaletteName := 'InfoPower Controls'; PrefixPaletteName := 'InfoPower'; {$ENDIF} RegisterComponents(MainPaletteName, [TwwDBGrid]); RegisterComponents(MainPaletteName, [TwwDataInspector]); RegisterComponents(MainPaletteName, [TwwDBEdit]); RegisterComponents(MainPaletteName, [TwwDBComboBox]); RegisterComponents(MainPaletteName, [TwwD