RbBFBlokProjPSIVStrn2007.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt v«?ÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup?EndGInt ?MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadnˆ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjD˜_ÿNameStrnApp ContInt paswStrnmoddStrn 3257742724 bClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$@nameStrnMenuBar PValInt 5­7ÿEndGInt @VwBhGrupAEndGInt ACnstGrupäBEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0CpltfInt langInt defnStrnCmd+Q EndGInt CCInsGrup0DpltfInt langInt defnStrnCtrl+Q EndGInt DEndGInt BCnstGrupœEEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0FpltfInt langInt defnStrnE&xit EndGInt FEndGInt ECnstGrupäGEncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0HpltfInt langInt defnStrn&Delete EndGInt HCInsGrup0IpltfInt langInt defnStrn&Delete EndGInt IEndGInt GPadnPadnH************************************************************************BlokpVewv«?ÿ(NameStrnWindow1 ContInt paswStrnmoddStrn 3257744157 bClsInt SuprStrnWindow bNtrInt CompStrnPDefGrup0JnameStrnMenuBar PValStrn 900544511 EndGInt JPDefGrup(KnameStrn MacProcID PValInt EndGInt KPDefGrup4LnameStrn BalloonHelp EncoInt PValStrnEndGInt LPDefGrup0MnameStrnMinimizeButton PValStrnTrueEndGInt MPDefGrup4NnameStrnMaximizeButton PValStrnFalse EndGInt NPDefGrup0OnameStrn LiveResize PValStrnFalse EndGInt OPDefGrup0PnameStrn Resizeable PValStrnFalse EndGInt PPDefGrup,QnameStrn CloseButton PValStrnTrueEndGInt QPDefGrup0RnameStrnMenuBarVisible PValStrnTrueEndGInt RPDefGrup0SnameStrn FullScreen PValStrnFalse EndGInt SPDefGrup(TnameStrnVisible PValStrnTrueEndGInt TPDefGrup8UnameStrnTitle EncoInt PValStrnUntitledEndGInt UPDefGrup$VnameStrnBackdropPValStrnEndGInt VPDefGrup(WnameStrn BackColor PValInt ÿÿÿEndGInt WPDefGrup0XnameStrn HasBackColorPValStrnFalse EndGInt XPDefGrup0YnameStrn Composite PValStrnFalse EndGInt YPDefGrup$ZnameStrnFrame PValInt EndGInt ZPDefGrup([nameStrn MaxHeight PValInt }EndGInt [PDefGrup$\nameStrnMaxWidthPValInt }EndGInt \PDefGrup(]nameStrn MinHeight PValInt @EndGInt ]PDefGrup$^nameStrnMinWidthPValInt @EndGInt ^PDefGrup$_nameStrnHeight PValInt ,EndGInt _PDefGrup$`nameStrnWidth PValInt ,EndGInt `PDefGrup(anameStrn Placement PValInt EndGInt aVwBhGrupäbVwPrGrupDcNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt cVwPrGrupLdNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt dVwPrGrupHeNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt eVwPrGrup0fNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”gdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt gEndGInt fVwPrGrupphNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt hVwPrGruppiNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt iVwPrGruppjNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt jVwPrGruptkNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt kVwPrGruptlNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt lVwPrGrupxmNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt mVwPrGrup nNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppodefnStrn 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 oEndGInt nVwPrGrup|pNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt pVwPrGrup|qNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt qVwPrGrup|rNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt rVwPrGrupxsNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt sVwPrGrupxtNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt tVwPrGruptuNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt uVwPrGrup|vNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt vVwPrGrup|wNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt wVwPrGrupxxNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt xVwPrGrup|yNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt yVwPrGrup|zNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt zVwPrGrup€{NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt {VwPrGrup||NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt |VwPrGruph}NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt }VwPrGrupx~NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt ~VwPrGrupxNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt EndGInt bCBhvGrupX€SuprStrn PushButton HInsGrup nameStrnAction CompStrnVsblInt sorcGrupÄ‚EncoInt srclStrn Sub Action()srclStrnNSoft Declare Function ShellExecuteExW Lib "Shell32" ( info as Ptr ) as Boolean srclStrnNSoft Declare Function ShellExecuteExA Lib "Shell32" ( info as Ptr ) as Boolean srclStrnsrclStrn%dim info as new MemoryBlock( 15 * 4 ) srclStrn!dim verb as new MemoryBlock( 32 ) srclStrn&dim file as new MemoryBlock( 260 * 2 ) srclStrnsrclStrninfo.Long( 0 ) = info.Size srclStrninfo.Long( 8 ) = self.HandlesrclStrnBif System.IsFunctionAvailable( "ShellExecuteExW", "Shell32" ) then srclStrnverb.WString( 0 ) = "runas" srclStrn,file.WString( 0 ) = "c:\Windows\Notepad.exe"srclStrnelsesrclStrnverb.CString( 0 ) = "runas" srclStrn,file.CString( 0 ) = "c:\Windows\Notepad.exe"srclStrnend if srclStrninfo.Ptr( 12 ) = verb srclStrninfo.Ptr( 16 ) = file srclStrnsrclStrnConst SW_SHOWNORMAL = 1 srclStrninfo.Long( 28 ) = SW_SHOWNORMAL srclStrnsrclStrndim ret as Boolean srclStrnBif System.IsFunctionAvailable( "ShellExecuteExW", "Shell32" ) then srclStrnret = ShellExecuteExW( info ) srclStrnelsesrclStrnret = ShellExecuteExA( info ) srclStrnend if srclStrnEnd Sub EndGInt ‚EndGInt HInsGrupƒnameStrnOpenCompStrnVsblInt sorcGrup¼„EncoInt srclStrn Sub Open() srclStrnConst BCM_SETSHIELD = &h160CsrclStrnConst BCM_GETIDEALSIZE = &h1601 srclStrnsrclStrnoDeclare Sub SendMessageA Lib "User32" ( hwnd as Integer, msg as Integer, wParam as Integer, lParam as Integer ) srclStrnkDeclare Sub SendMessageA Lib "User32" ( hwnd as Integer, msg as Integer, wParam as Integer, lParam as Ptr ) srclStrnsrclStrn.SendMessageA( me.Handle, BCM_SETSHIELD, 0, 1 ) srclStrnsrclStrn dim size as new MemoryBlock( 8 )srclStrn4SendMessageA( me.Handle, BCM_GETIDEALSIZE, 0, size )srclStrnsrclStrn#me.Width = 12 + size.Long( 0 ) + 12 srclStrn"me.Height = 2 + size.Long( 4 ) + 2 srclStrnEnd Sub EndGInt „EndGInt ƒEndGInt €CtrlGrupè…cclsStrn PushButton nameStrn PushButton PDefGrup8†nameStrn InitialParent EncoInt PValStrnEndGInt †PDefGrup(‡nameStrn Underline PValStrnEndGInt ‡PDefGrup$ˆnameStrnItalic PValStrnEndGInt ˆPDefGrup ‰nameStrnBoldPValStrnEndGInt ‰PDefGrup$ŠnameStrnTextSizePValInt EndGInt ŠPDefGrup8‹nameStrnTextFontEncoInt PValStrnSystem EndGInt ‹PDefGrup0ŒnameStrnAutoDeactivate PValStrnTrueEndGInt ŒPDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(ŽnameStrnVisible PValStrnTrueEndGInt ŽPDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup$nameStrnCancel PValStrnEndGInt PDefGrup$‘nameStrnDefault PValStrnEndGInt ‘PDefGrup4’nameStrnCaption EncoInt PValStrnTestEndGInt ’PDefGrup,“nameStrn TabPanelIndex PValInt EndGInt “PDefGrup(”nameStrn LockBottom PValStrnEndGInt ”PDefGrup(•nameStrn LockRight PValStrnEndGInt •PDefGrup$–nameStrnLockTop PValStrnEndGInt –PDefGrup$—nameStrnLockLeftPValStrnEndGInt —PDefGrup$˜nameStrnHeight PValInt EndGInt ˜PDefGrup$™nameStrnWidth PValInt PEndGInt ™PDefGrup šnameStrnTop PValInt EndGInt šPDefGrup ›nameStrnLeftPValInt EndGInt ›PDefGrup(œnameStrn ControlOrderPValInt EndGInt œPDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$žnameStrnIndex PValInt €EndGInt žPDefGrup8ŸnameStrnNameEncoInt PValStrn PushButton1 EndGInt ŸCBixInt EndGInt …PadnPadn˜********************************************************************************************************************************************************BlokpMnu5­7ÿ NameStrnMenuBar1ContInt paswStrnmoddStrn 3257742724 MItmGrupp spmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupСspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt ¡EndGInt  MItmGrup<¢spmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬£spmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt £MItmGrup|¤spmuInt nameStrntextStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¤MItmGrup¨¥spmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥MItmGrup¬¦spmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¦MItmGrup°§spmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt §MItmGrup”¨spmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¨MItmGrup|©spmuInt nameStrntextStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ©MItmGrup¸ªspmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ªEndGInt ¢PadnPadn´************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup@«OTabGrup¬ContInt eSptInt ÈEndGInt ¬OTabGrupd­ContInt v«?ÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt ­OTabGrup4®ContInt v«?ÿAltEInt LSptInt  ciIDInt EndGInt ®LsLcStrnWindow1.PushButton1.Action rEdtRect1~"¬EndGInt «PadnPadn|************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!