;DDE.WAS V1.00 Creates PW2.11 icon group with DDE ;***************************************************************************** ;* * ;* DDE.WAS * ;* Copyright (C) 1995 Datastorm Technologies, Inc. * ;* All rights reserved. * ;* * ;* Written by: Jay Teutenberg * ;* * ;* This program creates a new PROCOMM PLUS 2.11 icon group. It ignores * ;* other existing icon groups. * ;* * ;* This ASPECT SCRIPT is intended only as a sample of ASPECT programming. * ;* DATASTORM makes no warranty of any kind, express or implied, including * ;* without limitation, any warranties of merchantability and/or fitness * ;* for a particular purpose. Use of this program is at your own risk. * ;***************************************************************************** ;***************************************************************************** ;* * ;* MAIN * ;* The Main procedure calls CreateIcons * ;* * ;* * ;* Calls: CreateIcons * ;* * ;* Globals modified: None * ;* * ;***************************************************************************** proc Main long Channel string ddecommand strfmt ddecommand "[CreateGroup(PROCOMM PLUS 2.11,%s\PW211.GRP)]" $winpath if ddeinit Channel "progman" "progman" ;* create a new group, ddeexecute Channel ddecommand ;* if ddeinit is successful CreateIcons(Channel) ;* create the icons, ddeterminate Channel ;* close the channel endif endproc ;***************************************************************************** ;* * ;* CREATEICONS(Channel) * ;* The procedure CREATEICONS creates the icons for PW2.11 in the new program * ;* group. Each 3 line block of code creates one icon, the first line begins * ;* building the command string by concatenating the directory path and the * ;* name of the executable program requiring an icon. The second line * ;* completes building the command string by adding the neccessary DDE * ;* parameters. * ;* * ;* Calls: NONE * ;* Called by: Main * ;* Modifies globals: NONE * ;* * ;***************************************************************************** proc CreateIcons param long Channel string Pw2Path ;* holds path to PROCOMM PLUS dir string Pw2ExePath ;* holds path and main program name string TempPath ;* used while building DDE commandstr string CommandStr ;* holds the DDE command string Pw2Path = $PWTASKPATH ;* get the PROCOMM PLUS path strfmt Pw2ExePath "%s\PW2.EXE" Pw2Path ;* build path to main executable strfmt CommandStr "[AddItem(%s,PROCOMM PLUS)]" Pw2ExePath ddeexecute Channel CommandStr ;* Main executable strfmt TempPath "%s\FAXSTAT.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Fax Status)]" TempPath ddeexecute Channel CommandStr ;* Fax Status strfmt TempPath "%s\FAXVIEW.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Fax Viewer)]" TempPath ddeexecute Channel CommandStr ;* Fax Viewer strfmt TempPath "%s\PWCONVRT.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Directory/ASPECT conversion)]" TempPath ddeexecute Channel CommandStr ;* Conversion Utility strfmt TempPath "%s\PWFTP.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,FTP Client)]" TempPath ddeexecute Channel CommandStr ;* FTP Client strfmt TempPath "%s\README.WRI" Pw2Path strfmt CommandStr "[AddItem(%s,PROCOMM PLUS Readme)]" TempPath ddeexecute Channel CommandStr ;* PROCOMM PLUS Readme strfmt TempPath "%s\PWVIEWER.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Gif Viewer)]" TempPath ddeexecute Channel CommandStr ;* Gif Viewer strfmt TempPath "%s\PWSCHED.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,PW Scheduler)]" TempPath ddeexecute Channel CommandStr ;* Scheduler strfmt TempPath "%s\ABAREDIT.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Action Bar Editor)]" TempPath ddeexecute Channel CommandStr ;* Action Bar Editor strfmt TempPath "%s\PWCVRED.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Cover Sheet Editor)]" TempPath ddeexecute Channel CommandStr ;* Cover Sheet Editor strfmt TempPath "%s\PWEDIT.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,ASPECT Editor)]" TempPath ddeexecute Channel CommandStr ;* ASPECT Editor strfmt TempPath "%s\PWUSERWB.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,User Window Editor)]" TempPath ddeexecute Channel CommandStr ;* User Window Editor strfmt TempPath "%s\PWDLGED.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Dialog Editor)]" TempPath ddeexecute Channel CommandStr ;* Dialog Editor strfmt TempPath "%s\PW2.HLP" Pw2Path strfmt CommandStr "[AddItem(%s,PROCOMM PLUS Help)]" TempPath ddeexecute Channel CommandStr ;* PROCOMM PLUS Help strfmt TempPath "%s\PW2ASP.HLP" Pw2Path strfmt CommandStr "[AddItem(%s,ASPECT Help)]" TempPath ddeexecute Channel CommandStr ;* ASPECT Help strfmt TempPath "%s\PW2.EXE HOST.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,Host Mode,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* Host Script strfmt TempPath "%s\PW2.EXE CISMGR.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,Compuserve Manager,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* Compuserve Script strfmt TempPath "%s\PW2.EXE WINLINK.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,PC to PC File Transfer,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* Winlink Script strfmt TempPath "%s\PW2.EXE MCIMGR.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,MCI Manager,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* MCI Manager Script strfmt TempPath "%s\PW2.EXE LOGIN.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,LOGIN Script,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* Login Script strfmt TempPath "%s\PW2.EXE TUTORIAL.WAX" Pw2Path strfmt CommandStr "[AddItem(%s,Tutorial,%s,5)]" TempPath Pw2ExePath ddeexecute Channel CommandStr ;* Tutorial Script strfmt TempPath "%s\PWUNINST.EXE" Pw2Path strfmt CommandStr "[AddItem(%s,Uninstall)]" TempPath ddeexecute Channel CommandStr ;* Uninstaller Program endproc