RbBFBlokProjPSIVStrn2007.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt XwprTpInt DLanInt CLanInt DEncInt BflgInt IconGruphEndGInt hMacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjpN7NameStrnApp ContInt paswStrnmoddStrn 3252119563 bClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$inameStrnMenuBar PValInt tXEndGInt iVwBhGrupjEndGInt jCnstGrupkEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0lpltfInt langInt defnStrnCmd+Q EndGInt lCInsGrup0mpltfInt langInt defnStrnCtrl+Q EndGInt mEndGInt kCnstGrupnEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0opltfInt langInt defnStrnE&xit EndGInt oEndGInt nCnstGruppEncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0qpltfInt langInt defnStrn&Delete EndGInt qCInsGrup0rpltfInt langInt defnStrn&Delete EndGInt rEndGInt pPadnPadnH************************************************************************BlokpVewXw<NameStrnWindow1 ContInt paswStrnmoddStrn 3252130023 bClsInt SuprStrnWindow bNtrInt CompStrnMethGrupsnameStrnAlign CompStrnVsblInt sorcGrupPtEncoInt srclStrn2Function Align(bs as Ptr, bytes as Integer) As Ptr srclStrnbytes = bytes \ 2 srclStrnsrclStrndim ul as UInt32 = UInt32( bs ) srclStrn ul = ul + 1 srclStrnul = ShiftRight( ul, bytes )srclStrnul = ShiftLeft( ul, bytes ) srclStrnsrclStrnreturn Ptr( ul )srclStrn End FunctionEndGInt tEncoInt AlasStrnflagInt !shrdInt parmStrnbs as Ptr, bytes as Integer rsltStrnPtr EndGInt sMethGrupXunameStrn DialogProc CompStrnVsblInt sorcGruptvEncoInt srclStrnlShared Function DialogProc(hwnd as Integer, msg as Integer, wParam as Integer, lParam as Integer) As IntegersrclStrnConst WM_CLOSE = &h10 srclStrnConst WM_COMMAND = &h111srclStrnsrclStrnIDeclare Sub EndDialog Lib "User32" ( hwnd as Integer, result as Integer ) srclStrnsrclStrnselect case msg srclStrn case WM_CLOSE srclStrnEndDialog( hwnd, 0 )srclStrnsrclStrncase WM_COMMAND srclStrn7// Note that we *want* this to truncate to the low word srclStrndim command as Int16 = wParam srclStrnselect case command srclStrncase 500srclStrnEndDialog( hwnd, 1 )srclStrnelsesrclStrn3// We didn't handle this command, so do the default srclStrnreturn 0srclStrn end select srclStrnelsesrclStrnreturn 0srclStrn end select srclStrnsrclStrnreturn 1srclStrn End FunctionEndGInt vEncoInt AlasStrnflagInt !shrdInt parmStrnEhwnd as Integer, msg as Integer, wParam as Integer, lParam as Integer rsltStrnInteger EndGInt uPDefGrup0wnameStrnMenuBar PValStrn 1951987711 EndGInt wPDefGrup(xnameStrn MacProcID PValInt EndGInt xPDefGrup4ynameStrn BalloonHelp EncoInt PValStrnEndGInt yPDefGrup0znameStrnMinimizeButton PValStrnTrueEndGInt zPDefGrup4{nameStrnMaximizeButton PValStrnFalse EndGInt {PDefGrup0|nameStrn LiveResize PValStrnFalse EndGInt |PDefGrup0}nameStrn Resizeable PValStrnFalse EndGInt }PDefGrup,~nameStrn CloseButton PValStrnTrueEndGInt ~PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup8nameStrnTitle EncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn Composite PValStrnFalse EndGInt PDefGrup$nameStrnFrame PValInt EndGInt PDefGrup(nameStrn MaxHeight PValInt }EndGInt PDefGrup$nameStrnMaxWidthPValInt }EndGInt PDefGrup(nameStrn MinHeight PValInt @EndGInt PDefGrup$nameStrnMinWidthPValInt @EndGInt PDefGrup$nameStrnHeight PValInt ,EndGInt PDefGrup$nameStrnWidth PValInt ,EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGrupVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGruppNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrup NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt EndGInt VwPrGrup|NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt VwPrGrupxNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VwPrGrupxNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt VwPrGruptNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrupNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGruphNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt VwPrGrupxNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt EndGInt CBhvGrupSuprStrn PushButton HInsGrupxnameStrnAction CompStrnVsblInt sorcGrup0EncoInt srclStrn Sub Action()srclStrnZDeclare Function GlobalAlloc Lib "Kernel32" ( flags as Integer, size as UInt32 ) as UInt32 srclStrnDDeclare Function GlobalLock Lib "Kernel32" ( data as UInt32 ) as PtrsrclStrn:Declare Sub GlobalUnlock Lib "Kernel32" ( data as UInt32 ) srclStrn8Declare Sub GlobalFree Lib "Kernel32" ( data as UInt32 )srclStrnsrclStrnDeclare Function MultiByteToWideChar Lib "Kernel32" ( cp as UInt32, flags as UInt32, str as CString, numChars as Integer, retStr as Ptr, retStrChars as Integer ) as IntegersrclStrnsrclStrnConst GMEM_ZEROINIT = &h0040srclStrn