RbBFBlokProjDąæ’,ahPSIVStrn5.5OPSpStrn avplayer4.rbACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrn(C) 2005 by Barry TraverIVerStrn"REALbasic media player for WindowsDVewInt ½[³-prTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrup ,EndGInt ,CPalGrupŠ -flagInt elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’elemInt ’’’’EndGInt -MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrn avplayer.exeBMDIInt BL86Strn MyApplicationrEdtRectČ2Č¾fTypGrupL .nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt .PadnPadnBlokpVew½[³-(Dąæ’,ahNameStrnWindow1ContInt rEdtRect®eSptInt ’’übPGpGrupP /bPElGrup4 0scKyInt õćŃrEdtRect®eSptInt ’’üEndGInt 0EndGInt /lstHInt @lstVInt PDefGrup4 1nameStrnNamePValStrnWindow1EncoInt EndGInt 1PDefGrup( 2nameStrnFramePValStrn0EndGInt 2PDefGrup0 3nameStrn CompositePValStrnFalseEndGInt 3PDefGrup0 4nameStrn HasBackColorPValStrnFalseEndGInt 4PDefGrup0 5nameStrn BackColorPValStrn16777215EndGInt 5PDefGrup( 6nameStrnBackdropPValStrn0EndGInt 6PDefGrupH 7nameStrnTitlePValStrnTraver Mini AV PlayerEncoInt EndGInt 7PDefGrup( 8nameStrnVisiblePValStrnTrueEndGInt 8PDefGrup0 9nameStrn FullScreenPValStrnFalseEndGInt 9PDefGrup0 :nameStrnMenuBarVisiblePValStrnTrueEndGInt :PDefGrup( ;nameStrnCloseBoxPValStrnTrueEndGInt ;PDefGrup, nameStrnZoomIconPValStrnFalseEndGInt >PDefGrup( ?nameStrn BalloonHelpPValStrnEndGInt ?PDefGrup, @nameStrn MacProcIDPValStrn0EndGInt @PDefGrup0 AnameStrnMenuBarPValStrn -1118063828EndGInt APDefGrup, BnameStrn PlacementPValStrn2EndGInt BPDefGrup( CnameStrnWidthPValStrn210EndGInt CPDefGrup( DnameStrnHeightPValStrn62EndGInt DPDefGrup( EnameStrnMinWidthPValStrn64EndGInt EPDefGrup, FnameStrn MinHeightPValStrn64EndGInt FPDefGrup, GnameStrnMaxWidthPValStrn32000EndGInt GPDefGrup0 HnameStrn MaxHeightPValStrn32000EndGInt HFDefGrup INameStrnWindow1SizeInt ŒSuprStrnWindowbNtrInt HInsGrupŲ JEncoInt nameStrnKeyDownsorcGrupœ KstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn*Function KeyDown(Key As String) As BooleansrclStrnsrclStrn End FunctionEndGInt KEndGInt JHInsGrup° LEncoInt nameStrnOpensorcGrupx MstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Open()srclStrnsrclStrnEnd SubEndGInt MEndGInt LMnuHGrup NEncoInt nameStrn FilePlayCDsorcGrupÄ OstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnFunction Action() As BooleansrclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _srclStrnJ(lpstrCommand As cString, lpstrReturnString As cString, uReturnLength As _srclStrn,Integer, hwndCallback As integer) As integersrclStrnDim Ret As integersrclStrnDim RetStr As StringsrclStrnRetStr = newmemoryBlock(255)srclStrn://In the next two lines indicate which is the CD-ROM drivesrclStrn%MsgBox "Audio CD must be in drive D."srclStrnERet = mciSendString("open " + "D:" + " type cdaudio alias cdaudio", _srclStrnRetStr, 255, 0)srclStrn3Ret = mciSendString("play cdaudio", RetStr, 255, 0)srclStrn=MsgBox "When you're finished listening, click on OK to stop."srclStrn3Ret = mciSendString("stop cdaudio", RetStr, 255, 0)srclStrn4Ret = mciSendString("close cdaudio", RetStr, 255, 0)srclStrn End FunctionEndGInt OEndGInt NMnuHGrup č PEncoInt nameStrn FilePlayFilesorcGrup Ø QstsrInt BstscInt ndsrInt BndscInt EncoInt srclStrnFunction Action() As BooleansrclStrnsrclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _srclStrn,integer, hwndCallback As integer) As integersrclStrnLDeclare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _srclStrnH(lpszLongPath As cString, lpszShortPath As ptr, lBuffer As integer) As _srclStrnintegersrclStrnDim Ret As integersrclStrnDim RetStr As StringsrclStrnDim f as folderitemsrclStrnDim alias as stringsrclStrnDim returnstr as MemoryBlocksrclStrnDim Res As integersrclStrn Dim TruncatedPath as MemoryBlocksrclStrnDim FileExtension As StringsrclStrnDim Pos1 As IntegersrclStrnDIm I As IntegersrclStrn returnstr = New MemoryBlock(255)srclStrn$f = getopenFolderItem("special/any")srclStrnFileExtension = f.namesrclStrnIf f = Nil Then ExitsrclStrn3Ret = mciSendString("close all", returnstr, 255, 0)srclStrn#For I = Len(FileExtension) DownTo 1srclStrn'If MidB(FileExtension, I, 1) = "." ThensrclStrn5FileExtension = LowerCase(MidB(FIleExtension, I + 1))srclStrnExitsrclStrnEnd IfsrclStrnNext IsrclStrn3Ret = mciSendString("close all", returnstr, 255, 0)srclStrnSelect Case FIleExtensionsrclStrnCase "wav", "wave"srclStrn$TruncatedPath = New MemoryBlock(255)srclStrn:Res = GetShortPathName(f.AbsolutePath, TruncatedPath, 255)srclStrn alias = TruncatedPath.CString(0)srclStrnreturnstr = newmemoryBlock(255)srclStrn8Ret = mciSendString("open waveaudio", returnstr, 255, 0)srclStrn7Ret = mciSendString("play " + alias, returnstr, 255, 0)srclStrn=MsgBox "When you're finished listening, click on OK to stop."srclStrn6Ret = mciSendString("stop "+ alias, returnstr, 255, 0)srclStrn9Ret = mciSendString("close waveaudio", returnstr, 255, 0)srclStrn(Case "avi", "mid", "midi", "mp3", "mpg" srclStrn$TruncatedPath = New MemoryBlock(255)srclStrn