Yes, I know I'm supposed to use Apple Events instead, but I just thought
I'd experiment with the FINDERINFO command, which looked considerably
easier to implement.
I can't get it to work at all. I wrote the following little demo, and
put in the right FREF and BNDL resources, which tell the Finder that my
program can open TEXT files. I am able launch the program by
double-clicking a TEXT file created by "FInf", or by dragging a TEXT
file to the app's icon. I've run it on 3 machines, using OS 8.0, 7.5
and 7.1 respectively. In every case, "action" returns garbage and
"count" returns zero. I can't see anything wrong with the code. Does
FINDERINFO only work with system versions older than 7.1?
'=======================
RESOURCES "finderinfo.rsrc", "APPLFInf"
_maxItems = 5
DIM 31 item$(_maxItems), type&(_maxItems), wdRefNum(_maxItems)
HANDLEEVENTS 'necessary?
count = _maxItems
action = FINDERINFO(count, item$(0), type&(0), wdRefNum(0))
CLS
PRINT "action:"; action
PRINT "count:"; count
LONG IF count > 0
FOR i = 0 TO count - 1
PRINT item$(i), MKI$(type&(i)), wdRefNum(i)
NEXT
END IF
INPUT x
'========================
Any obvious goofs here?
- Rick