home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_start.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  467 b   |  21 lines
  1. on exitFrame
  2.   global pfad, laufwerk
  3.   set pfad to the pathName
  4.   if ReadFileIntoCastMember(5, "c:\Windows\TOSHOW.INf") = 1 then
  5.     set laufwerk to char 1 to 2 of field 5
  6.   end if
  7. end
  8.  
  9. on LeseText1 Dateiname
  10.   global LeseObjekt
  11.   if objectp(LeseObjekt) then
  12.     LeseObjekt(mdispose)
  13.   end if
  14.   set LeseObjekt to fileio(mnew, "read", Dateiname)
  15.   if objectp(LeseObjekt) then
  16.     set text to LeseObjekt(mReadFile)
  17.     return text
  18.     LeseObjekt(mdispose)
  19.   end if
  20. end
  21.