#NoTrayIcon
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <skin.au3>
#include <staticconstants.au3>
#include <file.au3>
#include <sound.au3>
;Cartella
$cartella="C:\Programmi\Notepad"
If Not FileExists($cartella) Then
DirCreate($cartella)
EndIf
;Immagine
If Not FileExists($cartella&"\notepad.jpg") Then
FileInstall("C:\Documents and Settings\Admin\Desktop\notepad.jpg",$cartella&"\notepad.jpg")
EndIf
;Skin
If Not FileExists($cartella&"\notepad.skf") Then
FileInstall("C:\Documents and Settings\Admin\Desktop\notepad.skf",$cartella&"\notepad.skf")
EndIf
;File ini
If Not FileExists($cartella&"\Info.ini") Then
FileInstall("C:\Documents and Settings\Admin\Desktop\Info.ini",$cartella&"\Info.ini")
EndIf
;Musica
If Not FileExists($cartella&"\notepad.mp3") Then
FileInstall("C:\Documents and Settings\Admin\Desktop\notepad.mp3",$cartella&"\notepad.mp3")
EndIf
;GUI--------------------------------------------------------------------------
$fileini=$cartella&"\Info.ini"
$gui = GUICreate("Notepad",700,500)
skin($gui,FileReadLine($fileini,2))
$sound=(FileReadLine($fileini,6))
_SoundPlay($sound)
;Menù
$file=GUICtrlCreateMenu("File")
$apri=GUICtrlCreateMenuItem("Apri",$file)
$salva=GUICtrlCreateMenuItem("Salva",$file)
$impostazioni=GUICtrlCreateMenu("Impostazioni")
$opzioni=GUICtrlCreateMenuItem("Opzioni",$impostazioni)
$disinstalla=GUICtrlCreateMenuItem("Disinstalla",$impostazioni)
$informazioni=GUICtrlCreateMenu("Informazioni")
$autore=GUICtrlCreateMenuItem("Autore",$informazioni)
GUICtrlCreatePic(FileReadLine($fileini,4),0,0,700,100)
;Testo
$font="Comic Sans MS"
$testo=GUICtrlCreateEdit("",0,100,700,380)
GUICtrlSetFont($testo,12,400,1,$font)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor($testo,0x00FF00)
;Trasparenza iniziale
WinSetTrans($gui,"",0)
GUISetState(@SW_SHOW,$gui)
For $trasparenza= 1 To 255
WinSetTrans($gui,"",$trasparenza)
Next
;-------------------------------------------------------------------------------
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $apri
$percorsoapri=FileOpenDialog("Seleziona un file",@DesktopDir,"File di testo (*.txt)|Tutti i file (*.*)")
$aprifile=FileRead($percorsoapri)
GUICtrlSetData($testo,$aprifile)
Case $salva
$salvafile=FileSaveDialog("Salva file",@DesktopDir,"File di testo (*.txt)")
FileWrite($salvafile&".txt",GUICtrlRead($testo))
Case $opzioni
$guiopzioni=GUICreate("Opzioni",300,140)
$testoimmagine=GUICtrlCreateLabel("Percorso immagine di sfondo (500x200):",5,5,200,15)
$percorsoimmagine=GUICtrlCreateInput("",5,25,290,20)
$testomusica=GUICtrlCreateLabel("Percorso musica di sottofondo:",5,55,200,15)
$percorsomusica=GUICtrlCreateInput("",5,75,290,20)
$applica=GUICtrlCreateButton("Applica",125,100,50,30)
GUISetState()
While 1
$nMsg2 = GUIGetMsg()
Switch $nMsg2
Case $GUI_EVENT_CLOSE
ExitLoop
Case $applica
$immagine=GUICtrlRead($percorsoimmagine)
if $immagine=0 Then
Else
_FileWriteToLine($fileini,4,GUICtrlRead($percorsoimmagine),1)
EndIf
Sleep(300)
_FileWriteToLine($fileini,6,GUICtrlRead($percorsomusica),1)
MsgBox(0,"Opzioni","Riavviare il programma per rendere effettive le modifiche")
EndSwitch
WEnd
GUIDelete($guiopzioni)
Case $disinstalla
$elimina=MsgBox(4,"Disinstalla","Sicuro di voler disinstallare il programma?")
if $elimina = 6 Then
_SoundStop($sound)
_SoundClose($sound)
DirRemove($cartella,1)
Exit
EndIf
Case $autore
MsgBox(0,"Contatti","Questo programma e' stato creato da Cale92"&@CRLF&"E-mail:
[email protected]"&@CRLF&"Sito web: cale92.altervista.org")
EndSwitch
WEnd
