AutoHotkey Community

;<=====  System Settings  =====>
#SingleInstance Force
#NoEnv

;<=====  Menu  =====>
Menu, MyMenu, Add, Run, RunFile
Menu, MyMenu, Add, Remove, RemoveFile

;<=====  GUI  =====>
Gui, Color, FFFFFF
Gui -Border
Gui, Font,, Comic Sans MS Bold

Gui, Add, Text, x6 y6 w150 h20 , Welcome to TekOS REMIX

Gui, Add, GroupBox, x6 y30 w250 h220 , Date
Gui, Add, MonthCal, x16 y50 w230 h190 ,

Gui, Add, GroupBox, x266 y30 w250 h220 , Quick Launcher
Gui, Add, Button, x276 y50 w230 h20 gAddFile, Add file to Quick Launcher
Gui, Add, ListView, x276 y70 w230 h170 gCentral, Name|Extension|Directory

Gui, Add, GroupBox, x6 y260 w250 h140 , System
Gui, Add, Picture, x16 y280 w40 h40 , Resources\Computer.ico
Gui, Add, Button, x66 y280 w80 h20 gHibernate, Hibernate
Gui, Add, Button, x66 y310 w80 h20 gLogoff, Log Off
Gui, Add, Button, x66 y340 w80 h20 gReboot, Reboot
Gui, Add, Button, x66 y370 w80 h20 gShutdown, Shut Down
Gui, Add, Button, x156 y280 w80 h20 gGetSystemInfo, System Info
Gui, Add, Button, x156 y340 w80 h20 gEject, Eject
Gui, Add, Button, x156 y370 w80 h20 gRetract, Retract

Gui, Add, GroupBox, x266 y260 w250 h140 , Internet
Gui, Add, Picture, x276 y280 w50 h50 , Resources\Web page.ico
Gui, Add, Button, x336 y280 w110 h20 gGoogle, Google
Gui, Add, Button, x336 y310 w110 h20 gHotMail, HotMail
Gui, Add, Button, x336 y340 w110 h20 gGMail, gMail
Gui, Add, Button, x336 y370 w110 h20 gWeather, Weather

Gui, Show, xCenter yCenter h406 w522, Tek OS REMIX
WinSet, Transparent, 185, Tek OS REMIX
WinGet, TekID, ID, A
Return

;<=====  System Buttons  =====>

Reboot:
  ShutDown, 2
  Return

Shutdown:
  Shutdown, 1
  Return

Logoff:
  Shutdown, 0
  Return

Hibernate:
  DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)
  Return

GetSystemInfo:
  DriveGet,Capacity,Capacity,%SystemDrive%
  Drivespacefree, FreeSpace, %Systemdrive%
  If Capacity > 1024
    CapacityGB := Capacity / 1024
  CapacityGBR := Round(CapacityGB)
  If FreeSpace > 1024
    FreeSpaceGB := FreeSpace / 1024
  FreeSpaceGBR := Round(FreeSpaceGB)
  Memory := DllCall("resources\gmem.dll\GetMemStats", "str", "dwTotalPhys")
  MemoryMB := Memory / 1024 /1024
  MemoryMBR := Round(MemoryMB)
  Code (Copy):
  Runwait, %comspec% /c ver > %temp%\OSSP.txt,,Hide
  Fileread,OperatingSystem,%temp%\OSSP.txt
  Filedelete,%temp%\ver.txt
  MsgBox, 64, ,Operating System: %OperatingSystem%`nDrive: %Systemdrive%`nHolding Capacity (GB):%CapacityGBR%`nTotal Space Left (GB):%FreeSpaceGBR%`nTotal RAM (MB): %MemoryMBR%
  Return

;<=====  Internet Buttons  =====>

Google:
  Run, www.google.com
  Return

HotMail:
  Run, www.hotmail.com
  Return

GMail:
  Run, www.gmail.com
  Return

Weather:
  Run, www.weather.com
  Return

Eject:
  Drive, Eject,,
  Return

Retract:
  Drive, Eject,, 1
  Return

;<=====  Quick Launcher  =====>

AddFile:
  Gui, +OwnDialogs
  FileSelectFile,FilesToAdd,M3,,Select  File,
  If (!FilesToAdd)
    {
      MsgBox, No File(s) Selected
      Return
    }
  Loop, parse, FilestoAdd, `n
    {
      If (a_index != 1)
        {
          SplitPath,A_loopField,,,FileExt
          LV_Add("",a_loopfield,FileExt,dir)
        }
      Else
        {
          Dir:=a_loopField
        }
    }
  LV_ModifyCol()
  Return

Central:
  Remove = %A_EventInfo%
  LV_GetText(name, A_EventInfo, 1)
  LV_GetText(dir, A_EventInfo, 3)
  ToRun = %dir%\%name%
  If A_GuiEvent = DoubleClick
    GoSub, RunFile
  If A_GuiEvent = RightClick
    Menu, MyMenu, Show
  Return

RunFile:
  Run, %ToRun%
  Return

RemoveFile:
  LV_Delete(Remove)
  Return

;<=====  Show/Hide  =====>

HideTek:
  If TekID <> -1
    {
      WinHide, ahk_id %TekID%
    }
  Return

ShowTek:
  If TekID <> -1
    {
      WinShow, ahk_id %TekID%
      WinActivate, ahk_id %TekID%
      ControlFocus, Edit1, ahk_id %TekID%
    }
  Return

^!x:: ;Change this to Show/Hide with desired hotkey.
  IFWinExist, ahk_id %TekID%
    {
      GoSub, HideTek
      Return
    }
    DetectHiddenWindows, ON
    IFWinExist, ahk_id %TekID%
      GoSub, ShowTek
    DetectHiddenWindows, OFF
  Return