Permalink
Switch branches/tags
Nothing to show
Find file Copy path
4de77f4 Jun 5, 2007
0 contributors

Users who have contributed to this file

63 lines (55 sloc) 1.28 KB
#SingleInstance,Force
#NoEnv
#NoTrayIcon
Goto,DIRECTORY
DIRECTORY:
InstallDir =
Gui, Add, Text,y10 x10,Where would you like to install Texter?
Gui, Add, Edit, x20 y30 r1 W300 vInstallDir,%A_ProgramFiles%\Texter
Gui, Add, Button,w80 GBrowse x320 y29,&Browse
Gui, Add, Button,w80 default GInstall x225 yp+50,&Install
Gui, Add, Button,w80 xp+90 GCancel,&Cancel
Gui, Show, auto,Install Texter
RETURN
BROWSE:
FileSelectFolder, InstallDir,,1,Select your installation folder
if ErrorLevel = 0
GuiControl,,InstallDir,%InstallDir%
RETURN
INSTALL:
Gui, Submit
Gui,Destroy
;MsgBox,%InstallDir%
IfNotExist,%InstallDir%
FileCreateDir,%InstallDir%
Process,Exist,texter.exe
if ErrorLevel != 0
Process,Close,texter.exe
FileInstall,texter.exe,%InstallDir%\texter.exe,1
if ErrorLevel = 0
{
;MsgBox Problem!
Gui, Add, Text,y10 x10,Texter successfully installed!
Gui, Add, Checkbox, Checked y30 x20 vLaunch, Launch Texter
Gui, Add, Button,w80 default GAutoRun x300 yp+65,&Finish
Gui, Show, auto,Installation complete
}
;MsgBox, Installed
return
AUTORUN:
Gui,Submit
Gui,Destroy
if Launch = 1
{
;MsgBox, Launch
Run,%InstallDir%\texter.exe
;MsgBox,Ran: %InstallDir%\texter.exe
}
Goto,Exit
return
CANCEL:
Gui, Destroy
Goto,Exit
return
EXIT:
ExitApp