Code: Select all
/*
Executar programas
Copyright 2023 Benedito Carneiro
Save the script as UTF-8 with BOM
*/
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Execute programas instalados no Windows:
Gui, Add, Radio, gExecutar, Executar um programa
Gui, Add, Radio, gEditar, Editar a lista de programas
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Add, Text,, %bc%
Gui, Show
return
Editar:
#IfWinActive, ahk_class Notepad
WinClose, ahk_class Notepad
run, Notepad programas.md
Return
Executar:
Loop, read, programas.md
Menu, Menu1, Add, %A_LoopReadLine%, Acao1
Menu, Menu1, Color, CEE0F1
Menu, Menu1, Show
Menu, Menu1, DeleteAll
Return
Acao1:
dois := StrSplit(A_ThisMenuItem, ";")
comando := Trim(dois[2])
Run % comando,, UseErrorLevel
if ErrorLevel = "ERROR"
Msgbox, 16, Erro, Não achei o programa %A_ThisMenuItem%.
Return
GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp
- Bloco de Notas; notepad.exe
Calculadora; calc.exe
Data e Hora do Sistema; timedate.cpl
Downloads; explorer "shell:::{088e3905-0323-4b02-9826-5d99428e115f}"
Fontes do Windows; fonts
Gerenciador de Tarefas; taskmgr
Lixeira do Windows; ::{645ff040-5081-101b-9f08-00aa002f954e}
Mapa de Caracteres; charmap.exe
Meu Computador; ::{20d04fe0-3aea-1069-a2d8-08002b30309d}
Meus Documentos; ::{450d8fba-ad25-11d0-98a8-0800361b1103}
Microsoft Access; msaccess.exe
Microsoft Excel; excel.exe
Microsoft Paint; mspaint
Microsoft PowerPoint; powerpnt.exe
Microsoft Word; winword.exe
Google Chrome; chrome.exe
Mozilla Firefox; firefox.exe
Painel de Controle; ::{21ec2020-3aea-1069-a2dd-08002b30309d}
Prompt de Comando; cmd.exe
Tarefas Agendadas; ::{d6277990-4c6a-11cf-8d87-00aa0060f5bf}
Windows Explorer; explorer.exe
Windows Media Player; wmplayer.exe
Windows PowerShell; powershell.exe
WordPad; write.exe