Use NewDfAbout.pkg

// This provides a quick and simple way to create an about package for a program.
// You need to create a message inside you client area called Activate_About.
// Within this message you should send the message DoAbout passing needed
// string information.
//
//       Procedure Activate_About
//           Send DoAbout sTitle sVersion sCopyright sAuthor sBitmap sWebSite
//       End_Procedure
//    where: sTitle =     Name of application. If none provided, uses caption
//                        bar title
//           sVersion   = Version Line. If none provided, will be blank
//           sCopyRight = Copyright Line. If none provided, will be blank
//           sAuthor    = Author name, blank if none provided
//           sBitMap    = Bitmap logo. If none provided, standard VDF bitmap
//                        is used.
//           sWebSite   = web site address
//           sAboutFilename = ASCII file with additonal information, locate in
//                            your app's help directory

//  Procedure Activate_About
//   Send DoAbout "The Farmer's Office 2000" "Version 1.9a (7/5/2000)" "Copyright 1999 Datatech" "All Rights Reserved" "newlogo.bmp" "about.txt"
//  End_Procedure

// *************************************************************************
//  Public message. It is expected that you will send this message (most
//  likely from Activate_About. This creates an about object, activates it
//  and destroys it when done. It is not exepected that you will augment this.
// *************************************************************************

Procedure DoAbout string sTitle string sVersion string sCopyRight string sAuthor string sBitmap string sAboutFilename
        integer hoObj hoMain
        String sHelpPath

        // create object
        Object About is an AboutDialog
            // if no title passed use the label of the main panel
            // (if a main panel exists).
            if (Length(sTitle) = 0) Begin
              Get Main_Window to hoMain
              if hoMain Get Label of hoMain to sTitle
            end
            set productname to sTitle
            set version     to sVersion
            set copyright   to sCopyRight
            set author      to sAuthor
            If sBitmap    ne '' ;
               set logo to sBitMap // square bitmaps of 42x42 work best
            set websiteaddress to ("http:/"+"/www.rds.com")
            set emailaddress to "info@rds.com"
            get psHelpPath of (psWorkspace(ghoApplication)) to sHelpPath
            if (num_arguments > 5) Send ReadFile (sHelpPath + "\" + sAboutFilename)
            Move Current_Object to hoObj // object Id
        End_Object
        Send Popup to hoObj    // popup the about object
        Send Request_Destroy_Object to hoObj // when done, it will be destroyed
End_procedure