Jump to content
Sign in to follow this  
Doug

Menu of Buttons

Recommended Posts

I've written a bunch of tiny scripts that I run separately, whenever I need one of them. What I do now is double-click their EXE shortcut icons to run them; they run and then stop when they're done. What I'd like to do is add them all to a menu that always runs (unless I manually kill it). Each tiny script would be represented on the menu by a button; this way I could simply click a button to run a script once.

What I need is the code to create the button menu, and perhaps a case statement where I can lodge each tiny script. Before I start coding myself, I thought I'd check here to see if someone has a scrap I could use for this purpose. I'm sure this wheel has already been invented, so to speak.

Any suggestions?

Thanks!

:(

Share this post


Link to post
Share on other sites

I've written a bunch of tiny scripts that I run separately, whenever I need one of them.  What I do now is double-click their EXE shortcut icons to run them; they run and then stop when they're done.  What I'd like to do is add them all to a menu that always runs (unless I manually kill it).  Each tiny script would be represented on the menu by a button; this way I could simply click a button to run a script once.

What I need is the code to create the button menu, and perhaps a case statement where I can lodge each tiny script.  Before I start coding myself, I thought I'd check here to see if someone has a scrap I could use for this purpose.  I'm sure this wheel has already been invented, so to speak.

Any suggestions?

Thanks!

:(

<{POST_SNAPBACK}>

Here is a CUT_OUT (not full Version or even close) from *XPClean Menu*

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <String.au3>
#include <INet.au3>
#notrayicon

GUICreate(" My Favorites    ")
    
    GUICtrlCreateLabel("PLEASE Create a Restore Point...", 165, 60, 260, 25)
    $tab11OK = GUICtrlCreateButton("Create Restore", 30, 55, 120, 25, $BS_ICON)
    GUICtrlSetTip(-1, "Built-in Win Xp, If you accidently delete important files, you can Restore them later")
    GUICtrlCreateLabel("Removes Adware from Computers", 165, 105, 260, 25)
    $tab12OK = GUICtrlCreateButton("Adaware SE", 30, 100, 120, 25)
    GUICtrlSetTip(-1, "Freeware Program, Excellent AD POP-UP stopper")
    GUICtrlCreateLabel("Removes Spyware Programs", 165, 150, 260, 25)
    $tab13OK = GUICtrlCreateButton("Microsoft Anti-Spy", 30, 145, 120, 25)
    GUICtrlSetTip(-1, "Free for Win Xp, Excellent SPY PROGRAM eraser")
    GUICtrlCreateLabel("Removes TAB items, Temp, Unused, History and More!", 165, 195, 350, 25)
    $tab14OK = GUICtrlCreateButton("Auto-XPClean", 30, 190, 120, 25)
    GUICtrlSetTip(-1, "Automate Cleaning of TAB File items")
    GUICtrlCreateLabel("Removes Invalid Registry Entries", 165, 240, 250, 25)
    $tab15OK = GUICtrlCreateButton("Registry Cleaner", 30, 235, 120, 25)
    GUICtrlSetTip(-1, "Freeware, Muilti-purpose Registry Cleaner")
    GUICtrlCreateLabel("Organizes Hard-Drive Programs", 165, 285, 250, 25)
    $tab16OK = GUICtrlCreateButton("Win Xp Defregment", 30, 280, 120, 25)
    GUICtrlSetTip(-1, "Built-in Win Xp, Optimizes Hard-Drive space")
    
    GUICtrlCreateLabel(" This Menu was a cut-out from *XPClean Menu*", 20, 325, 540, 30)
    
    $_OK = GUICtrlCreateButton("OK", 240, 365, 70, 25)
    $_CANCEL = GUICtrlCreateButton("Cancel", 320, 365, 70, 25)
    
    GUISetState()
    
    
While 1
    
    $Msg = GUIGetMsg()
    
; controls Restore Point
    If $Msg = $tab11OK Then
        
        If FileExists(@SystemDir & "\restore\rstrui.exe") Then
            Run(@SystemDir & "\restore\rstrui.exe")
            Sleep(2000)
            WinWaitActive("")
        Else
            MsgBox(64, "Sorry! ", "This Win XP Program - was not found", 8)
        EndIf
        
    EndIf
    
; controls Adaware
    If $Msg = $tab12OK  Then
        
        If FileExists(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then
            Run(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe")
            Sleep(2000)
            WinWaitActive("")
        Else
            $iMsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "          Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    RunWait(@ProgramFilesDir & "\Internet Explorer\iexplore.exe www.lavasoft.com")
            EndSelect
        EndIf

    EndIf
    
    
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>..  continue with other buttons 
    
    
    If $Msg = $_OK Or $Msg = $_CANCEL Or $Msg = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
    
    
WEnd

The Full Menu and Code is here

#78760

Enjoy!


NEWHeader1.png

Share this post


Link to post
Share on other sites

Here is one I am developing for office with a minor change you could easily modify it for use in you own program set.

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <file.au3>

#include <Constants.au3>

#include <ButtonConstants.au3>

Opt("TrayMenuMode", 1)

#NoTrayIcon ;==Don't Show Standard Tray Icon

Global $path, $msg[15], $checkCN[15], $blank1, $blank2, $blank3, $icon, $L

Global $button1, $button2, $button3, $button4

Global $button5, $Button6, $button7, $button8

Global $button9, $button10, $buttonclose, $buttonok, $buttoncancel, $x, $y

Global $yes, $no, $yes2, $no2, $null, $startup, $systray, $graphical, $helpitem

If FileExists("C:\Program Files\Microsoft Office\Office11\WINWORD.exe") Then ;==Check Which Copy Of Office Is Installed

$path = "C:\Program Files\Microsoft Office\Office11\"

ElseIf FileExists("C:\Program Files\Microsoft Office\Office12\WINWORD.exe") Then

$path = "C:\Program Files\Microsoft Office\Office12\"

ElseIf FileExists("C:\Program Files\Microsoft Office\Office14\WINWORD.exe") Then

$path = "C:\Program Files\Microsoft Office\Office14\"

EndIf

If Not FileExists(@MyDocumentsDir & "OQS.txt") Then ;==Make Sure INI File Exists If Not Create One

GUICreate("Office Quickstart Warning", 260, 220, -1, -1, $WS_CAPTION, $icon) ; will create a dialog box that when displayed is centered

$buttonok = GUICtrlCreateButton("OK", 30, 185, 80, 30)

$buttoncancel = GUICtrlCreateButton("Cancel", 130, 185, 80, 30)

GUICtrlCreateLabel("Settings file not found. Program will continue" & @CRLF & "with the following default settings:", 45, 10)

GUICtrlCreateLabel("Word" & @CRLF & "Excel" & @CRLF & "Access" & @CRLF & "Publisher" & @CRLF & "PowerPoint", 85, 40)

GUICtrlCreateLabel("Outlook" & @CRLF & "Graphical User Interface" & @CRLF & "No startup with Windows", 85, 105)

GUICtrlCreateLabel("These setting can be changed using the settings " & @CRLF & "menu. OK to Continue. Cancel to exit.", 10, 150)

$icon = GUICtrlCreateIcon("shell32.dll", 23, 5, 10)

GUISetState()

While 1

Switch GUIGetMsg()

Case $buttoncancel

GUIDelete()

GuiCreate("Office Quickstart",260,220,-1,-1,$WS_CAPTION)

GUICtrlCreateLabel("Program terminating!",45,10)

Sleep(5000)

GUIDelete()

Exit

Case $buttonok

GUIDelete()

GUICreate("Office Quickstart",260,220,-1,-1,$WS_CAPTION)

GUICtrlCreateLabel("Building Settings file for first time use, One Moment Please...",45,10)

Sleep (7500)

$msg[1] = 1

$msg[2] = 1

$msg[3] = 1

$msg[4] = 1

$msg[5] = 0

$msg[6] = 1

$msg[7] = 0

$msg[8] = 0

$msg[9] = 1

$msg[10] = 0

$msg[11] = 0

$msg[12] = 1

$msg[13] = 0

$msg[14] = 0

_FileWriteFromArray(@MyDocumentsDir & "OQS.txt", $msg, 1)

FileSetAttrib(@MyDocumentsDir & "OQS.txt", "+H")

ExitLoop

EndSwitch

WEnd

Else

_FileReadToArray(@MyDocumentsDir & "OQS.txt", $msg)

EndIf

If $msg[13] = 1 Then

_Systray()

EndIf

$openitem = TrayCreateItem("Open File...") ;==Populate The Tray

$blank1 = TrayCreateItem("")

$settingsitem = TrayCreateItem("Settings")

$blank2 = TrayCreateItem("")

$helpitem = TrayCreateItem("Help")

$exititem = TrayCreateItem("Exit")

TraySetState()

TraySetToolTip("Microsoft Office Quickstart")

TraySetIcon("C:\users\chuck\desktop\Office12.ico")

TraySetClick(16)

While 1;==Wait For User Input

$tray = TrayGetMsg()

Select

Case $tray = $button1 And $msg[13] = 1

;ShellExecute($path & "winword.exe")

Case $tray = $button2 And $msg[13] = 1

;ShellExecute($path & "excel.exe")

Case $tray = $button3 And $msg[13] = 1

;ShellExecute($path & "msaccess.exe")

Case $tray = $button4 And $msg[13] = 1

;ShellExecute($path & "powerpnt.exe")

Case $tray = $button5 And $msg[13] = 1

;ShellExecute($path & "onenote.exe")

Case $tray = $Button6 And $msg[13] = 1

;ShellExecute($path & "outlook.exe")

Case $tray = $button7 And $msg[13] = 1

;ShellExecute($path & "groove.exe")

Case $tray = $button8 And $msg[13] = 1

;ShellExecute($path & "infopath.exe")

Case $tray = $button9 And $msg[13] = 1

;ShellExecute($path & "mspub.exe")

Case $tray = $button10 And $msg[13] = 1

;ShellExecute($path & "ois.exe")

Case $tray = $openitem

_CanOpener()

Case $tray = $exititem

ExitLoop

Case $tray = $settingsitem

_Settings()

Case $tray = $helpitem

_Help()

Case $tray = $TRAY_EVENT_PRIMARYDOUBLE

If $msg[12] = 1 Then

_Graphical()

EndIf

EndSelect

WEnd

Func _Graphical() ;==Graphical User Interface

$x = 40

$y = 0

For $i = 1 To 11

If $msg[$i] = 1 Then

$x = $x + 40

EndIf

Next

GUICreate("Microsoft Office Manager", $x, 40, -1, -1, $WS_CAPTION)

If $msg[1] = 1 Then

$button1 = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "winword.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Word")

EndIf

If $msg[2] = 1 Then

$y = $y + 40

$button2 = GUICtrlCreateButton("2", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "excel.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Excel")

EndIf

If $msg[3] = 1 Then

$y = $y + 40

$button3 = GUICtrlCreateButton("3", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "msaccess.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Access")

EndIf

If $msg[4] = 1 Then

$y = $y + 40

$button4 = GUICtrlCreateButton("4", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "powerpnt.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office PowerPoint")

EndIf

If $msg[5] = 1 Then

$y = $y + 40

$button5 = GUICtrlCreateButton("5", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "onenote.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office One Note")

EndIf

If $msg[6] = 1 Then

$y = $y + 40

$Button6 = GUICtrlCreateButton("6", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "outlook.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Outlook")

EndIf

If $msg[7] = 1 Then

$y = $y + 40

$button7 = GUICtrlCreateButton("7", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "groove.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Groove Synchonization")

EndIf

If $msg[8] = 1 Then

$y = $y + 40

$button8 = GUICtrlCreateButton("8", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "infopath.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office InfoPath")

EndIf

If $msg[9] = 1 Then

$y = $y + 40

$button9 = GUICtrlCreateButton("9", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "mspub.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Publisher")

EndIf

If $msg[10] = 1 Then

$y = $y + 40

$button10 = GUICtrlCreateButton("10", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, $path & "ois.exe", 1)

GUICtrlSetTip(-1, "Microsoft Office Picture Manager")

EndIf

If $msg[11] = 1 Then

$y = $y + 40

$button11 = GUICtrlCreateButton("11", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, "C:\windows\system32\shell32.dll", 46)

GUICtrlSetTip(-1, "Open File")

EndIf

$y = $y + 40

$buttonclose = GUICtrlCreateButton("close", $y, 0, 40, 40, $BS_ICON)

GUICtrlSetImage(-1, "c:\windows\system32\shell32.dll", 28)

GUICtrlSetTip(-1, "Close")

GUISetState()

; Run the GUI until the dialog is closed

While 1

$z = GUIGetMsg()

Select

Case $z = $GUI_EVENT_CLOSE

ExitLoop

Case $z = $button1 And $msg[1] = 1

ShellExecute($path & "winword.exe")

ExitLoop

Case $z = $button2 And $msg[2] = 1

ShellExecute($path & "excel.exe")

ExitLoop

Case $z = $button3 And $msg[3] = 1

ShellExecute($path & "msaccess.exe")

ExitLoop

Case $z = $button4 And $msg[4] = 1

ShellExecute($path & "powerpnt.exe")

ExitLoop

Case $z = $button5 And $msg[5] = 1

ShellExecute($path & "onenote.exe")

ExitLoop

Case $z = $Button6 And $msg[6] = 1

ShellExecute($path & "outlook.exe")

ExitLoop

Case $z = $button7 And $msg[7] = 1

ShellExecute($path & "groove.exe")

ExitLoop

Case $z = $button8 And $msg[8] = 1

ShellExecute($path & "infopath.exe")

ExitLoop

Case $z = $button9 And $msg[9] = 1

ShellExecute($path & "mspub.exe")

ExitLoop

Case $z = $button10 And $msg[10] = 1

ShellExecute($path & "ois.exe")

ExitLoop

Case $z = $button11 And $msg[11] = 1

GUIDelete()

_CanOpener()

ExitLoop

Case $z = $buttonclose

ExitLoop

Case Else

EndSelect

WEnd

GUIDelete()

EndFunc ;==>_Graphical

Func _Systray()

TraySetClick(9)

If $msg[1] = 1 Then

$button1 = TrayCreateItem("Word")

EndIf

If $msg[2] = 1 Then

$button2 = TrayCreateItem("Excel")

EndIf

If $msg[3] = 1 Then

$button3 = TrayCreateItem("Access")

EndIf

If $msg[4] = 1 Then

$button4 = TrayCreateItem("PowerPoint")

EndIf

If $msg[5] = 1 Then

$button5 = TrayCreateItem("OneNote")

EndIf

If $msg[6] = 1 Then

$Button6 = TrayCreateItem("Outlook")

EndIf

If $msg[7] = 1 Then

$button7 = TrayCreateItem("Groove")

EndIf

If $msg[8] = 1 Then

$button8 = TrayCreateItem("InfoPath")

EndIf

If $msg[9] = 1 Then

$button9 = TrayCreateItem("Publisher")

EndIf

If $msg[10] = 1 Then

$button10 = TrayCreateItem("Office Picture Viewer")

EndIf

$blank3 = TrayCreateItem("")

EndFunc ;==>_Systray

Func _Settings() ;==System Settings

Local $tab, $tab0, $startup, $graphical, $systray

Local $tab1, $tab2, $settingsbutton1, $settingsbutton2

Local $checkCN[15]

GUICreate("Microsoft Office Manager Settings", 240, 200, -1, -1, $WS_CAPTION) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x00E0FFFF)

GUISetFont(9, 300)

$tab = GUICtrlCreateTab(5, 5, 240, 160)

$tab0 = GUICtrlCreateTabItem("Main")

$startup = GUICtrlCreateCheckbox("Startup With Windows", 55, 35)

If $msg[14] = 1 Then

GUICtrlSetState($startup, $GUI_CHECKED)

EndIf

GUICtrlCreateLabel("Interface Type", 50, 65)

$graphical = GUICtrlCreateRadio("Graphical", 55, 85)

If $msg[12] = 1 Then

GUICtrlSetState($graphical, $GUI_CHECKED)

EndIf

$systray = GUICtrlCreateRadio("System Tray", 55, 105)

If $msg[13] = 1 Then

GUICtrlSetState($systray, $GUI_CHECKED)

EndIf

$icon = GUICtrlCreateIcon("shell32.dll", 22, 10, 70)

$tab1 = GUICtrlCreateTabItem("Programs")

$checkCN[1] = GUICtrlCreateCheckbox("Word", 50, 35, 60, 20)

$checkCN[2] = GUICtrlCreateCheckbox("Excel", 50, 55, 60, 20)

$checkCN[3] = GUICtrlCreateCheckbox("Access", 50, 75, 60, 20)

$checkCN[4] = GUICtrlCreateCheckbox("PowerPoint", 50, 95, 80, 20)

$checkCN[5] = GUICtrlCreateCheckbox("OneNote", 50, 115, 75, 20)

$checkCN[6] = GUICtrlCreateCheckbox("Outlook", 135, 35, 120, 20)

$checkCN[7] = GUICtrlCreateCheckbox("Groove", 135, 55, 120, 20)

$checkCN[8] = GUICtrlCreateCheckbox("InfoPath", 135, 75, 120, 20)

$checkCN[9] = GUICtrlCreateCheckbox("Publisher", 135, 95, 120, 20)

$checkCN[10] = GUICtrlCreateCheckbox("Picture Viewer", 135, 115, 120, 20)

$checkCN[11] = GUICtrlCreateCheckbox("Open File...", 85, 135, 120, 20)

$icon = GUICtrlCreateIcon("shell32.dll", 40, 10, 70)

If FileExists($path & "winword.exe") Then

If $msg[1] = 1 Then

GUICtrlSetState($checkCN[1], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[1], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[1], $GUI_DISABLE)

EndIf

If FileExists($path & "excel.exe") Then

If $msg[2] = 1 Then

GUICtrlSetState($checkCN[2], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[2], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[2], $GUI_DISABLE)

EndIf

If FileExists($path & "msaccess.exe") Then

If $msg[3] = 1 Then

GUICtrlSetState($checkCN[3], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[3], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[3], $GUI_DISABLE)

EndIf

If FileExists($path & "powerpnt.exe") Then

If $msg[4] = 1 Then

GUICtrlSetState($checkCN[4], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[4], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[4], $GUI_DISABLE)

EndIf

If FileExists($path & "onenote.exe") Then

If $msg[5] = 1 Then

GUICtrlSetState($checkCN[5], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[5], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[5], $GUI_DISABLE)

EndIf

If FileExists($path & "outlook.exe") Then

If $msg[6] = 1 Then

GUICtrlSetState($checkCN[6], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[6], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[6], $GUI_DISABLE)

EndIf

If FileExists($path & "groove.exe") Then

If $msg[7] = 1 Then

GUICtrlSetState($checkCN[7], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[7], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[7], $GUI_DISABLE)

EndIf

If FileExists($path & "infopath.exe") Then

If $msg[8] = 1 Then

GUICtrlSetState($checkCN[8], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[8], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[8], $GUI_DISABLE)

EndIf

If FileExists($path & "mspub.exe") Then

If $msg[9] = 1 Then

GUICtrlSetState($checkCN[9], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[9], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[9], $GUI_DISABLE)

EndIf

If FileExists($path & "ois.exe") Then

If $msg[10] = 1 Then

GUICtrlSetState($checkCN[10], $GUI_CHECKED)

EndIf

Else

GUICtrlSetState($checkCN[10], $GUI_UNCHECKED)

GUICtrlSetState($checkCN[10], $GUI_DISABLE)

EndIf

$tab2 = GUICtrlCreateTabItem("About")

GUICtrlCreateLabel("Microsoft Office Manager v2.5.7.9" & @CRLF & @CRLF & " Created By Cubbybearks" & @CRLF & @CRLF & " Jan 18,2009 - Feb.9,2009", 33, 45)

$icon = GUICtrlCreateIcon("shell32.dll", 24, 10, 70)

GUICtrlCreateTabItem("") ; end tabitem definition

$settingsbutton1 = GUICtrlCreateButton("OK", 30, 165, 80, 30)

$settingsbutton2 = GUICtrlCreateButton("Cancel", 130, 165, 80, 30)

GUISetState()

; Run the GUI until the dialog is closed

While 1

Switch GUIGetMsg()

Case $settingsbutton2

ExitLoop

Case $settingsbutton1

For $i = 1 To 11

$msg[$i] = GUICtrlRead($checkCN[$i])

Next

$msg[12] = GUICtrlRead($graphical)

$msg[13] = GUICtrlRead($systray)

$msg[14] = GUICtrlRead($startup)

_FileWriteFromArray(@MyDocumentsDir & "OQS.txt", $msg, 1)

_Rebuild()

ExitLoop

EndSwitch

If $msg[14] = 1 And @OSVersion <> "WIN_XP" And @OSVersion <> " WIN_2008" Then

If IsAdmin() Then

Else

#RequireAdmin ;==Aquire Administrative Rights

EndIf

RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Office Quickstart", "REG_SZ", @ScriptFullPath)

ElseIf $msg[14] = 0 Then

RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "REG_SZ")

EndIf

WEnd

GUIDelete()

EndFunc ;==>_Settings

Func _CanOpener() ;==Open File

$message = "Choose File To Open."

$var = FileOpenDialog($message, @MyDocumentsDir, "All(*.*)|Word (*.doc;*.docx)|Excel (*.xls;*.xlsx)|PowerPoint(*.pnt)|Text(*.rtf;*.txt)", 1 + 4)

If @error Then

Else

ShellExecute($var)

EndIf

EndFunc ;==>_CanOpener

Func _Rebuild() ;==Rebuild The System Menu

TrayItemDelete($blank3)

TrayItemDelete($openitem)

TrayItemDelete($blank1)

TrayItemDelete($settingsitem)

TrayItemDelete($blank2)

TrayItemDelete($helpitem)

TrayItemDelete($exititem)

TrayItemDelete($button1)

TrayItemDelete($button2)

TrayItemDelete($button3)

TrayItemDelete($button4)

TrayItemDelete($button5)

TrayItemDelete($Button6)

TrayItemDelete($button7)

TrayItemDelete($button8)

TrayItemDelete($button9)

TrayItemDelete($button10)

If $msg[13] = 1 Then

_Systray()

EndIf

$openitem = TrayCreateItem("Open File...")

$blank1 = TrayCreateItem("")

$settingsitem = TrayCreateItem("Settings")

$blank2 = TrayCreateItem("")

$helpitem = TrayCreateItem("Help")

$exititem = TrayCreateItem("Exit")

EndFunc ;==>_Rebuild

Func _Help()

GUICreate("Help", 280, 355, -1, -1, $WS_SYSMENU)

GUISetBkColor(0x00E0FFFF)

GUICtrlCreateTab(5, 5, 265, 315)

GUISetFont(9, 600, 0, "Arial")

$tab0 = GUICtrlCreateTabItem("Help Main")

GUICtrlCreateLabel("Help File Main Page", 75, 35, 235, 65)

GUICtrlCreateLabel("Click Tab Above to Get More Information About Different Options accessed by Right Clicking the System Tray Icon.", 20, 70, 245, 205)

$tab1 = GUICtrlCreateTabItem("File Open...")

GUICtrlCreateLabel("File Open... Option", 80, 35, 235, 65)

GUICtrlCreateLabel("Select this option from the System Tray to open an existing Microsoft Office file.", 20, 70, 240, 105)

GUICtrlCreateLabel("All (*.*) files are shown in the Dialog Box by default .", 20, 125, 240, 205)

GUICtrlCreateLabel("Use Drop Down Box to select Office Format Files or standard Text files." & @CRLF & @CRLF & "For Example:" & @CRLF & "Word (*.doc;*.docx), Excel(*.xls;*.xlsx), Text(*.rtf;*.txt).", 20, 160, 240, 205)

$tab2 = GUICtrlCreateTabItem("Settings")

GUICtrlCreateLabel("Settings Option", 90, 35, 235, 65)

GUICtrlCreateLabel("Select this Option to change the ways that the program will act.", 20, 60, 240, 205)

GUICtrlCreateLabel("Startup With Windows, Will place a shortcut in the Startup folder.", 20, 95, 240, 205)

GUICtrlCreateLabel("Graphical: Opens a Dialog when the System Tray Icon is Double Clicked", 20, 130, 240, 205)

GUICtrlCreateLabel("System Tray: Lists all Programs when the System Tray Icon is Clicked.", 20, 165, 240, 205)

GUICtrlCreateLabel("Programs: Lists all the available programs that can be added to the menu, check each program that you would like to include.", 20, 215, 240, 340)

GUICtrlCreateLabel("About will show more about the program and it's creation.", 20, 280, 240, 354)

$tab3 = GUICtrlCreateTabItem("Help")

GUICtrlCreateLabel("Help Option", 100, 35, 235, 65)

GUICtrlCreateLabel("Brings up this Dialog Box to close click the [X] in the upper right hand corner.", 20, 60, 225, 205)

$tab4 = GUICtrlCreateTabItem("Exit")

GUICtrlCreateLabel("Exit", 115, 35, 225, 205)

GUICtrlCreateLabel("Exit the program.", 20, 70, 240, 205)

GUISetState()

Do

Until GUIGetMsg() = $GUI_EVENT_CLOSE

GUIDelete()

EndFunc ;==>_Help

Edited by Cubbybearks

Share this post


Link to post
Share on other sites

I'm surprised no one's mentioned this, but I'm pretty sure you're in the wrong forum, no?

EDIT: Just realized. NerdFencer you just revived a four and a half year old thread. You may want to keep from doing this in the future, it's unnecessary.

Edited by Minikori

For those who are asking questions, look in the help file first. I'm tired of people asking stupid questions about how to do things when 10 seconds in the help file could solve their problem.[quote name='JRowe' date='24 January 2010 - 05:58 PM' timestamp='1264381100' post='766337'][quote name='beerman' date='24 January 2010 - 03:28 PM' timestamp='1264372082' post='766300']They already have a punishment system for abuse.[/quote]... and his his name is Valik.[/quote]www.minikori.com

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...