Что нового

[Элементы GUI] DTI Runer-Быстрый доступ к определённой группе ярлыков User'a

VasiliuS

Похож?
Сообщения
20
Репутация
0
AutoIt: 3.2.8.1
Версия: 1.0

Категория: Элементы GUI

Описание: При помощи клика на кнопке в окне программы, запускает соответствующий ярлик (путь к ярлыку: @ScriptDir & "\Launchers" ;)) приложения User'a.
На кнопке отображается иконка запускаемого приложения User'a .

Код:
Код:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### 
$DTI_AutoIt_Runer = GUICreate("DTI_AutoIt_Runer", 335, 522, 193, 125)
GUISetBkColor(0xD4D0C8)
$SciTEScriptEditor = GUICtrlCreateButton("(Not allowed)", 15, 15, 105, 105, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, "C:\Program Files\AutoIt3\SciTE\SciTE.exe", 0)
$FD = GUICtrlCreateButton("(Not allowed)", 214, 15, 105, 105, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, "C:\Data\AutoIt Utilites\Koda\FD.exe", 0)
$CodeWizard = GUICtrlCreateButton("(Not allowed)", 15, 186, 105, 105, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, "C:\Data\AutoIt Utilites\CodeWizard\CodeWizard.exe", 0)
$AU3Record = GUICtrlCreateButton("(Not allowed)", 214, 186, 105, 105, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, "C:\Data\AutoIt Utilites\ScriptWriter\AU3Record.exe", 1)
$Compiller = GUICtrlCreateButton("(Not allowed)", 15, 347, 105, 105, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, "C:\Program Files\AutoIt3\Aut2Exe\Aut2exe.exe", 0)
$SciTE_Text = GUICtrlCreateLabel("SciTEScriptEditor", 12, 128, 136, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Mistral")
$Koda_Text = GUICtrlCreateLabel("Koda", 248, 128, 42, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Mistral")
$CodeWizard_Text = GUICtrlCreateLabel("CodeWizard", 16, 296, 95, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Mistral")
$AU3Record_Text = GUICtrlCreateLabel("AU3Record", 224, 296, 86, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Mistral")
$Compiller_Text = GUICtrlCreateLabel("Compiller", 24, 456, 81, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Mistral")
$Exit = GUICtrlCreateIcon(@ScriptDir & "\Launchers\Exit.ico", 0, 294, 475, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $SciTEScriptEditor
	  Switch $nMsg
	  Case $nMsg = $SciTEScriptEditor
		  ShellExecute("SciTE Script Editor", "", @ScriptDir & "\Launchers", "open")
	  EndSwitch
	  
  Case $FD
	  Switch $nMsg
	  Case $nMsg = $FD
		  ShellExecute("FD", "", @ScriptDir & "\Launchers", "open")
	  EndSwitch
	  
  Case $CodeWizard
	  Switch $nMsg
	  Case $nMsg = $CodeWizard
		  ShellExecute("CodeWizard", "", @ScriptDir & "\Launchers", "open")
	  EndSwitch
	  
  Case $AU3Record
	  Switch $nMsg
	  Case $nMsg = $AU3Record
		  ShellExecute("AU3Record", "", @ScriptDir & "\Launchers", "open")
	  EndSwitch
	  
  Case $Compiller
	  Switch $nMsg
	  Case $nMsg = $Compiller
		  ShellExecute("Compile Script to exe", "", @ScriptDir & "\Launchers", "open")
	  EndSwitch
	  
  Case $Exit
	  Switch $nMsg
	  Case $nMsg = $Exit
		  Exit
	  EndSwitch
	  
 EndSwitch
WEnd

Файл: DTI Runer.au3

Снимок:



Источник: http://autoit-script.ru
Автор: VasiliuS

P.S. Разумеется все пути добавляемых файлов придётся переписывать :(
И просьба не осуждать меня за использование программы Koda, так как я изучаю AutoIt только третий день :smile:
Все предложения и замечания принимаются с радостью так как знание AutoIt = 0.1% :-[
Замечу: Приложения писалось с целью получения навыков работы с GUI и упрощения доступа к ярлыкам определённой группы приложений.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: [Элементы GUI] DTI Runer

можешь добавить в название темы хотя бы пару слов на русском языке, которые бы лаконично описывали функционал, на примере других тем из этого раздела? все таки форум русскоязычный
 
Автор
V

VasiliuS

Похож?
Сообщения
20
Репутация
0
Kaster
можешь добавить в название темы хотя бы пару слов на русском языке, которые бы лаконично описывали функционал, на примере других тем из этого раздела? все таки форум русскоязычный
Зделано!
Прошу прощения за ошибку, просто это первая моя тема такого типа (а так вторая :smile: ).
 
Верх