Creating a Program Group and Icon 
---------------------------------

You can use Dynamic Data Exchange (DDE) to create
a program group and place an icon within that group.
To do so, load the following functions from DDE.UCD
or DDE.U32 (the UCD is located on your Authorware CD):

DDEInitialize
DDEExecuteString
DDETerminate

Below is some same code. Depending on the speed of the
computer, you may be able to decrease the pause times
or eliminate them altogether:


CALC ICON 1
-----------
-- We'll assign the program group, name, title and 
-- icon to respective variables so that the code
-- is easily re-used in the future.
proggroup :="My Program Group"
progname:="myapp.exe"
progtitle := "My Program Title"
progicon:="myicon.ico"


CALC ICON 2
-----------
-- Initialize DDE
ddelink := DDEInitialize("PROGMAN", "PROGMAN")


WAIT ICON 1
-----------
-- (Pause 1 second to give DDE time to initialize)


CALC ICON 3
-----------
-- Create the program group
createstring := "[creategroup(" ^ proggroup ^ ")]"
DDEExecuteString(ddelink,createstring)


WAIT ICON 2
-----------
-- (Pause 1 second to give DDE time to create group)


CALC ICON 4
-----------
-- Place the icon in the new group
addstring := "[AddItem(" ^ progname ^ ",\"" ^ progtitle ^ "\","  ^  progicon ^  ", 0)]"
DDEExecuteString(ddelink,addstring)


WAIT ICON 3
-----------
-- (Pause 1 second to give DDE time to create icon)


CALC ICON 5
-----------
-- Terminate the DDE session
DDETerminate(ddelink)