70 lines
2.4 KiB
AutoIt
Executable file
70 lines
2.4 KiB
AutoIt
Executable file
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
|
|
#AutoIt3Wrapper_Icon=CNP.ico
|
|
#AutoIt3Wrapper_Outfile=..\CNP_32.Exe
|
|
#AutoIt3Wrapper_Outfile_x64=..\CNP.Exe
|
|
#AutoIt3Wrapper_Compile_Both=y
|
|
#AutoIt3Wrapper_Res_Comment=Tyleo Project Creator
|
|
#AutoIt3Wrapper_Res_Description=Tyleo Project Creator
|
|
#AutoIt3Wrapper_Res_Fileversion=1.0.0.4
|
|
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
|
|
#AutoIt3Wrapper_Res_ProductName=CNP
|
|
#AutoIt3Wrapper_Res_ProductVersion=1.0.0.0
|
|
#AutoIt3Wrapper_Res_CompanyName=Tyleo Softwares
|
|
#AutoIt3Wrapper_Res_LegalCopyright=Tyleo Softwares
|
|
#AutoIt3Wrapper_Res_LegalTradeMarks=Tyleo Softwares
|
|
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
|
|
#cs ----------------------------------------------------------------------------
|
|
|
|
AutoIt Version : 3.3.14.5
|
|
Auteur: Tyleo
|
|
|
|
Fonction du Script :
|
|
Modèle de Script AutoIt.
|
|
|
|
#ce ----------------------------------------------------------------------------
|
|
|
|
; Début du script - Ajouter votre code ci-dessous.
|
|
|
|
#include <ButtonConstants.au3>
|
|
#include <EditConstants.au3>
|
|
#include <File.au3>
|
|
#include <Array.au3>
|
|
#include <GUIConstantsEx.au3>
|
|
#include <WindowsConstants.au3>
|
|
#Region ### START Koda GUI section ### Form=
|
|
Global $GUI = GUICreate("Tyleo Project Init", 375, 40, 432, 503)
|
|
Global $ProjName = GUICtrlCreateInput("", 8, 8, 281, 24)
|
|
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
|
|
Global $InitProject = GUICtrlCreateButton("CREATE", 296, 8, 73, 25)
|
|
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
|
|
GUISetState(@SW_SHOW)
|
|
#EndRegion ### END Koda GUI section ###
|
|
|
|
if FileExists(@ScriptDir & "\_devtools") Then
|
|
ConsoleWrite("OK")
|
|
Else
|
|
DirCreate(@ScriptDir & "\_devtools")
|
|
EndIf
|
|
|
|
While 1
|
|
$nMsg = GUIGetMsg()
|
|
Switch $nMsg
|
|
Case $GUI_EVENT_CLOSE
|
|
Exit
|
|
|
|
Case $InitProject
|
|
$dName = GUICtrlRead($ProjName)
|
|
If $dName = "" Then
|
|
MsgBox(0+16,"Error","No Name entered. Nice try !")
|
|
Elseif FileExists(@ScriptDir & "\" & $dName) Then
|
|
MsgBox(0+16,"Error","This project already exist !")
|
|
Else
|
|
DirCreate(@ScriptDir & "\" & $dName)
|
|
DirCopy(@ScriptDir & "\_devtools",@ScriptDir & "\" & $dName,1)
|
|
FileMove(@ScriptDir & "\" & $dName & "\ProjectBase.au3",@ScriptDir & "\" & $dName & "\" & $dName & ".au3")
|
|
MsgBox(0,"Done","Project Folder created, Dev Tools copied." & @CRLF & @ScriptDir & "\" & $dName)
|
|
ShellExecute(@ScriptDir & "\" & $dName)
|
|
Exit(0)
|
|
EndIf
|
|
EndSwitch
|
|
WEnd
|