🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.nativeapi
Article #2903

How to use CreateObject("Shell.Application")...

#2903
From: Kris
Date: Sun, 29 Oct 2006 12:19
10 lines
1087 bytes
Can anyone some give me some clues on how to port the code below to
C++ builder ?

Sub Eject(CDROM)

CreateObject("Shell.Application").Namespace(17).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

example:
Eject "E:\"
Technical Details
Message-ID: <in69k2dik6it14qmui9o7cmc4rj8chvhev@4ax.com>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nwr.nac.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 10cc67,306ff0cf9385ba4a,start
X-Google-Attributes: gid10cc67,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: Kris <test@test.com>
Newsgroups: borland.public.cppbuilder.nativeapi
Subject: How to use CreateObject("Shell.Application")...
Date: Sun, 29 Oct 2006 13:19:48 +0100
Message-ID: <in69k2dik6it14qmui9o7cmc4rj8chvhev@4ax.com>
X-Newsreader: Forte Free Agent 3.3/32.846
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 83.134.85.193
X-Trace: newsgroups.borland.com 1162124382 83.134.85.193 (29 Oct 2006 04:19:42 -0700)
Lines: 10
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nwr.nac.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail