i% = DoMsgBox("Can't install the fonts - try to do this manualy or call product support at (095) 903-3728", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
CreateProgmanItem "Cyrill&Mephody", "Install QuickTime for Windows 2.01", MakePath(SrcDir$,"qtw.201\setup.exe"), MakePath(SrcDir$,"qtw.201\setup.exe"), cmoOverwrite
END SUB
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")