* The project name is Testproj * You should keep a ProjectHook in the seaprate class library * and do not include it in the project CREATE CLASSLIB TestprojPH CREATE CLASS TestprojPH OF TestprojPH AS ProjectHook * Put following code into the BeforeBuild event * --- BeforeBuild Start --- LPARAMETERS cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids LOCAL loProj lcDate = TTOC(DATETIME()) loProj = _VFP.ActiveProject loProj.VersionComments = "Project Built on " + lcDate * --- BeforeBuild End --- * Close Class Designer * Assign the ProjectHook to the project * It can be done through the Project Manager (PM) or Project object Modify project Testproj ooo = _VFP.ActiveProject ooo.ProjectHookLibrary = "TestprojPH" ooo.ProjectHookClass = "TestprojPH" * Make sure that VersionNumber is populated, * otherwise the PM will not create Version* items ? ooo.VersionNumber * If it's empty, set it to something * ooo.VersionNumber = "1.0.0" ooo.Build(2) ? ooo.VersionComments * release Project object ooo = NULL>>>