[futurebasic] [FBII] SYSTEM(_aplVol) and MiniRunTime

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 1999 : Group Archive : Group : All Groups

From: Herbie Glunder <H.Gluender@...>
Date: Tue, 05 Oct 1999 17:53:27 +0200
There is an useful suggestion by Rick Brown

"Getting App's VRefNum in miniruntime"
(http://www.futurebasic.org/sample.html)

for an equivalent to the call SYSTEM(_aplVol)--that is not available
when using the MiniRunTime under FBII.

Here is a code snippet that is equivalent as well (and a bit more
concise):

_pbSize = 220                                                      '
record size
DIM PB.pbSize                                                    '
ParamBlk

DEF BLOCKFILL(@PB,_pbSize,0)                  ' may be omitted
IF  FN GETFCBINFO(@PB)=_noErr  THEN  PB.ioWDDirID&=PB.ioFCBParID&
IF  FN OPENWD(@PB)=_noErr  THEN  ApplFldr%=PB.ioVRefNum%

Variable  ApplFldr%  contains the VRefNum of the application's folder.

Any objections or remarks?

Herbie
****************************
(H.Glunder@...)