CPP_RAD_Ejercicio19

/* ej19_InfoSystem
Mostrar informacion del sistema */
#include <radc++.h>

Form form1("Informacion del Sistema y Aplicacion - RAD C++ Ejemplo");
RichTextBox txt("",AUTO_ID,0,0,10,10,form1);

FormProcedure proc(FormProcArgs) {
    ON_CLOSE() Application.close();
    ON_MOVE() {
        form1.text = str(Application.ticks/1000) + ","+str(System.ticks/1000);
    }

    return 0;
}

rad_main()
        form1.procedure = proc;

        txt.fitExact();
        txt.text =

            System.windowsFolder + "\n" +
            System.systemFolder + "\n" +
            System.currentFolder + "\n" +
            System.computerName + "\n" +
            System.userName + "\n" +
            System.windowsVersion + "\n" +
            Application.fileName + "\n" +
            Application.path + "\n" +
            Application.buildDate + "\n" +
            Application.buildTime + "\n"
        ;
rad_end()