34 lines
1.4 KiB
Text
34 lines
1.4 KiB
Text
|
|
||
|
|
#include <ButtonConstants.au3>
|
||
|
|
#include <GUIConstantsEx.au3>
|
||
|
|
#include "MetroGUI-UDF\MetroGUI_UDF.au3"
|
||
|
|
#include <WindowsConstants.au3>
|
||
|
|
|
||
|
|
; Color Accent
|
||
|
|
$theMWTitleBarColor = Hex(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM", "AccentColor"))
|
||
|
|
$theMWTitleBarColor = StringRight($theMWTitleBarColor, 6)
|
||
|
|
$theMWTitleBarColor = "0x" & StringRight($theMWTitleBarColor, 2) & StringMid($theMWTitleBarColor, 3, 2) & StringLeft($theMWTitleBarColor, 2)
|
||
|
|
|
||
|
|
$CurrentAccent = $theMWTitleBarColor
|
||
|
|
|
||
|
|
; Software Base Details
|
||
|
|
Func GetSoftDetails($Exe,$Stage)
|
||
|
|
Global $CurrentVersion,$CurrentName,$CurrentBaseVersion
|
||
|
|
$CurrentVersion = FileGetVersion($Exe,$FV_FILEVERSION)
|
||
|
|
$CurrentBaseVersion = FileGetVersion($Exe,$FV_PRODUCTVERSION)
|
||
|
|
$CurrentName = FileGetVersion($Exe,$FV_PRODUCTNAME)
|
||
|
|
if $Stage = "BETA" Then
|
||
|
|
$CurrentVersion = $CurrentVersion & "-beta"
|
||
|
|
Elseif $Stage = "RELEASE" or $Stage = "STABLE" Then
|
||
|
|
$CurrentVersion = $CurrentVersion & "-rel"
|
||
|
|
Else
|
||
|
|
$CurrentVersion = $CurrentVersion & "-dev"
|
||
|
|
EndIf
|
||
|
|
Return True
|
||
|
|
EndFunc
|
||
|
|
|
||
|
|
; About Us
|
||
|
|
Func TyleoAbout($SoftName)
|
||
|
|
_Metro_MsgBox(8,"About / A propos",$SoftName & @CRLF & "Tyleo Softwares @ 2021" & @CRLF & " " & @CRLF & "BUILDING TOMORROW" & @CRLF & " " & @CRLF & "This Software is free and Open Source." & @CRLF & "tyleo.dev@outlook.com",400,15)
|
||
|
|
Return True
|
||
|
|
EndFunc
|