FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

FB II COMPILER

Replace SYSTEM(_aplVol) in the mini - runtime


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.
Herbie