C
cverbiest
Guest
Thank you for the code sample, I tweaked it a bit, bigger window repeat instead of do, so that it continues after an error DEF VAR oAppDomain AS System.AppDomain NO-UNDO. DEF VAR oAssemblies AS System.Reflection.Assembly EXTENT NO-UNDO. DEFINE VARIABLE ictr AS INTEGER NO-UNDO. current-window = default-window. assign DEFAULT-WINDOW:ROW = 1 DEFAULT-WINDOW:COLUMN = 1 default-window:width-chars = 220 default-window:height-chars = 28 default-window:font = 1. oAppDomain = System.AppDomain:CurrentDomain. oAssemblies = oAppDomain:GetAssemblies(). repeat ictr = 1 TO EXTENT(oAssemblies) with frame f1 width 220: display ictr form "zz9" with frame f1 . DISPLAY oAssemblies[ictr]:FullName FORMAT "x(128)" oAssemblies[ictr]:Location FORMAT "x(70)" WITH DOWN FRAME f1 WIDTH 220. DOWN WITH FRAME f1. END.
Continue reading...
Continue reading...