David Thanks for your suggestions, I have done the easy bit with the EXIT command and will study the shortcut example - would another option be to create a Delphi plugin to do this ? Regards, John Docherty
-----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of MikeB Sent: Wednesday, 2 February 2005 5:10 a.m. To: RBG7-L Mailing List Subject: [RBG7-L] - Re: Using an Application to Create A New Database > 1. If you start up the second version of R:Base with a LAUNCH command, and > then the next command in your calling application is EXIT, you should get > out of the first session of R:Base and start up the new one > > Anyone have ideas for John on the automatic creation of a desktop shortcut? Windows Script Host has Objects to do this exactly: [excerpt] Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") Dim MyShortcut, MyDesktop, DesktopPath ' Read desktop path using WshSpecialFolders object DesktopPath = WSHShell.SpecialFolders("Desktop") ' Create a shortcut object on the desktop Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Shortcut to notepad.lnk") ' Set shortcut object properties and save it MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe") MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%") MyShortcut.WindowStyle = 4 MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0") MyShortcut.Save WScript.Echo "A shortcut to Notepad now exists on your Desktop." [/excperpt] > > David Blocker > [EMAIL PROTECTED] > 781-784-1919 > Fax: 781-784-1860 > Cell: 339-206-0261 > ----- Original Message ----- > From: "John Docherty" <[EMAIL PROTECTED]> -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.302 / Virus Database: 265.8.4 - Release Date: 1/02/2005
