AutoHotkey Community

Gui, Add, Tab, gMytab vMyTab w625 h400, Format|Tools
Gui, Tab, Tools
Gui, Add, Checkbox, vChkGRUB Checked%GRUB%, %INSTALLGRUB%
Gui, Add, Button, gInstall, Install
Gui, Tab
Gui, Show,w640, RescueUSB
Return

^!r::Reload

Mytab:
Gui, Submit, Nohide

if Mytab = Tools
{
   ifExist, %varletterdrive%grldr
         {
             ;uncheck box
             ; ChkGRUB=0 Not Work
             ; ChkGRUB= Not Work
;GuiControl,1:, ChkGRUB, %INSTALLGRUB%  Not work
             ; Gui, Add, Checkbox, vChkGRUB , %INSTALLGRUB% Not work
mgs error variable exists.
}
}



Install:
gui, submit,Nohide

if ChkGRUB = 1
{
   IFNotExist, %vardriveletter%menu.lst
      {
         SB_SetText(FORMATINGIN)
         RunWait,%comspec% /c RMPARTUSB.exe DRIVE=%Drivenum% XP FAT32 2PTN VOLUME=RESCUEUSB, ,HIDE
         SB_SetText(ENDTO)
         Sleep, 5000
         SB_SetText("")
      }
SB_SetText(COPFILES)
Loop,console\*,0,1
anzahl:=A_INDEX
Loop,console\*,0,1
{
file:=A_LoopFileFullPath
file:=Regexreplace(file,".*console\\(.*)","$1")
StringLeft,Klammer,file,1
If Klammer!=\
file=\%file%
file=%vardriveletter%%file%
files.=file . "`n"
;if A_LoopFileName not in usbflash,plpbt.bin,whatever.xpm.gz,boot.ini,BOOTFONT.BIN,NTLDR,NTDETECT.COM,message
FileCopy,%A_LoopFileFullPath%,%file%,1
zahl:=(100 / anzahl) * A_INDEX
Progress, %zahl%, %a_loopfilename%, Copies des fichiers
Sleep, 50
}
Progress,Off
SB_SetText(ENDOF)   
Sleep, 2000
SB_SetText("")
}

Gui, Add, Checkbox, vChkGRUB gA1 Checked,
Gui, Show,w100, RescueUSB
Return

Guiclose:
exitapp

A1:
guicontrolget,chkgrub
if chkgrub = 0
   msgbox,NOT checked
else
   msgbox,Checked
return

Gui, Add, Tab, gMytab vMyTab w625 h400, Format|Tools
Gui, Tab, Tools
Gui, Add, Checkbox, vChkGRUB gMytab Checked
;Gui, Add, Button, gInstall, Install
Gui, Tab
Gui, Show,w640, RescueUSB
Return

Guiclose:
exitapp

Mytab:
Gui, Submit, Nohide
if Mytab = Tools
   {
   ifExist,%A_scriptdir%\test.txt
     {
       guicontrolget,chkgrub
       if chkgrub = 0
         msgbox,NOT checked
       else
          msgbox,Checked
        return
     }
   else
     msgbox,File NOT exist`n%A_scriptdir%\test.txt
   return
   }

Gui, Add, Checkbox, vChkGRUB Checked%GRUB%, %INSTALLGRUB%