GEANT/CAT

;_____________________________________________________________________________
;
;                          File Functions
;_____________________________________________________________________________
;
; 2006 Shengalts Aleksander aka Instructor (Shengalts@mail.ru)

Name "File Functions"
OutFile "FileFunc.exe"
Caption "$(^Name)"
XPStyle on
RequestExecutionLevel user

!include "WinMessages.nsh"
!include "FileFunc.nsh"

Var INI
Var HWND
Var STATE
Var FUNCTION
Var LOCATE1
Var LOCATE2
Var GETSIZE1
Var GETSIZE2
Var GETSIZE3
Var GETSIZE4
Var GETSIZE5
Var GETSIZE6
Var DRIVESPACE1
Var DRIVESPACE2
Var GETDRIVES1
Var GETTIME1
Var GETTIME2
Var GETFILEATTRIBUTES1
Var GETFILEATTRIBUTES2
Var GETFILEVERSION1
Var GETOPTIONS1
Var GETOPTIONS2
Var GETROOT1
Var GETPARENT1
Var GETFILENAME1
Var GETBASENAME1
Var GETFILEEXT1
Var BANNERTRIMPATH1
Var BANNERTRIMPATH2
Var DIRSTATE1

Page Custom ShowCustom LeaveCustom

Function ShowCustom
    InstallOptions::initDialog "$INI"
    Pop $hwnd
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1206
    EnableWindow $1 0
    SendMessage $1 ${WM_ENABLE} 1 0
    StrCpy $LOCATE1 $DOCUMENTS
    StrCpy $LOCATE2 '/L=FD /M=*.* /S=0B /G=1 /B=0'
    StrCpy $GETSIZE1 '$WINDIR'
    StrCpy $GETSIZE2 '/M=Explorer.exe /S=0K /G=0'
    StrCpy $GETSIZE3 '$PROGRAMFILES\Common Files'
    StrCpy $GETSIZE4 '/S=0M'
    StrCpy $GETSIZE5 '$WINDIR'
    StrCpy $GETSIZE6 '/G=0'
    StrCpy $DRIVESPACE1 'C:\'
    StrCpy $DRIVESPACE2 '/D=F /S=M'
    StrCpy $GETDRIVES1 'FDD+CDROM'
    StrCpy $GETTIME1 '$WINDIR\Explorer.exe'
    StrCpy $GETTIME2 'C'
    StrCpy $GETFILEATTRIBUTES1 'C:\IO.SYS'
    StrCpy $GETFILEATTRIBUTES2 'ALL'
    StrCpy $GETFILEVERSION1 '$WINDIR\Explorer.exe'
    StrCpy $GETOPTIONS1 '/SILENT=yes /INSTDIR="$PROGRAMFILES\Common Files"'
    StrCpy $GETOPTIONS2 '/INSTDIR='
    StrCpy $GETROOT1 'C:\path\file.dll'
    StrCpy $GETPARENT1 'C:\path\file.dll'
    StrCpy $GETFILENAME1 'C:\path\file.dll'
    StrCpy $GETBASENAME1 'C:\path\file.dll'
    StrCpy $GETFILEEXT1 'C:\path\file.dll'
    StrCpy $BANNERTRIMPATH1 'C:\Server\Documents\Terminal\license.htm'
    StrCpy $BANNERTRIMPATH2 '34A'
    StrCpy $DIRSTATE1 '$TEMP'

    GetDlgItem $1 $HWND 1203
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE1"
    GetDlgItem $1 $HWND 1205
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE2"
    InstallOptions::show
    Pop $0
FunctionEnd

Function LeaveCustom
    ReadINIStr $STATE $INI "Field 1" "State"
    ReadINIStr $R1 $INI "Field 2" "State"
    ReadINIStr $R2 $INI "Field 3" "State"
    ReadINIStr $R3 $INI "Field 4" "State"
    ReadINIStr $R4 $INI "Field 5" "State"
    ReadINIStr $0 $INI "Settings" "State"
    StrCmp $0 6 view
    StrCmp $0 0 Enter
    goto main

    view:
    StrCpy $0 '$$'
    StrCpy $1 'n'
    StrCpy $2 'r'
    StrCmp $R4 "LocateCallback" 0 +3
    StrCpy $R0 `Function LocateCallback$\r$\n    MessageBox MB_OKCANCEL '$0$$R9    "path\name"=[$$R9]$0\$1$0$$R8    "path"          =[$$R8]$0\$1$0$$R7    "name"        =[$$R7]$0\$1$0$$R6    "size"           =[$$R6]' IDOK +2$\r$\n    StrCpy $$R0 StopLocate$\r$\n$\r$\n    Push $$R0$\r$\nFunctionEnd`
    goto send
    StrCmp $R4 "GetDrivesCallback" 0 error
    StrCpy $R0 `Function GetDrivesCallback$\r$\n    MessageBox MB_OKCANCEL '$0$$9    "drive letter"=[$$9]$0\$1$0$$8    "drive type" =[$$8]' IDOK +2$\r$\n    StrCpy $$R0 StopGetDrives$\r$\n    StrCpy $$R5 '$$R5$$9  [$$8 Drive]$$\$2$$\$1'$\r$\n$\r$\n    Push $$R0$\r$\nFunctionEnd`
    goto send

    main:
    StrCmp $FUNCTION '' DefaultSend
    StrCmp $FUNCTION Locate 0 +4
    StrCpy $LOCATE1 $R2
    StrCpy $LOCATE2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetSize1 0 +4
    StrCpy $GETSIZE1 $R2
    StrCpy $GETSIZE2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetSize2 0 +4
    StrCpy $GETSIZE3 $R2
    StrCpy $GETSIZE4 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetSize3 0 +4
    StrCpy $GETSIZE5 $R2
    StrCpy $GETSIZE6 $R3
    goto DefaultSend
    StrCmp $FUNCTION DriveSpace 0 +4
    StrCpy $DRIVESPACE1 $R1
    StrCpy $DRIVESPACE2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetDrives 0 +3
    StrCpy $GETDRIVES1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetTime 0 +4
    StrCpy $GETTIME1 $R1
    StrCpy $GETTIME2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetFileAttributes 0 +4
    StrCpy $GETFILEATTRIBUTES1 $R1
    StrCpy $GETFILEATTRIBUTES2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetFileVersion 0 +3
    StrCpy $GETFILEVERSION1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetOptions 0 +4
    StrCpy $GETOPTIONS1 $R1
    StrCpy $GETOPTIONS2 $R3
    goto DefaultSend
    StrCmp $FUNCTION GetRoot 0 +3
    StrCpy $GETROOT1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetParent 0 +3
    StrCpy $GETPARENT1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetFileName 0 +3
    StrCpy $GETFILENAME1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetBaseName 0 +3
    StrCpy $GETBASENAME1 $R1
    goto DefaultSend
    StrCmp $FUNCTION GetFileExt 0 +3
    StrCpy $GETFILEEXT1 $R1
    goto DefaultSend
    StrCmp $FUNCTION BannerTrimPath 0 +4
    StrCpy $BANNERTRIMPATH1 $R1
    StrCpy $BANNERTRIMPATH2 $R3
    goto DefaultSend
    StrCmp $FUNCTION DirState 0 +2
    StrCpy $DIRSTATE1 $R2

    DefaultSend:
    GetDlgItem $1 $HWND 1201
    EnableWindow $1 1
    ShowWindow $1 0
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1202
    EnableWindow $1 1
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1203
    EnableWindow $1 1
    ShowWindow $1 0
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1204
    EnableWindow $1 1
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1205
    EnableWindow $1 1
    GetDlgItem $1 $HWND 1206
    ShowWindow $1 0
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1207
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1208
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1211
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"

    ReadINIStr $0 $INI "Field 1" "State"
    StrCmp $0 "  1. Locate" 0 GetSize1Send
    StrCpy $FUNCTION Locate
    GetDlgItem $1 $HWND 1203
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE1"
    GetDlgItem $1 $HWND 1204
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE2"
    GetDlgItem $1 $HWND 1206
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:LocateCallback"
    GetDlgItem $1 $HWND 1207
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Path"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Options"
    GetDlgItem $1 $HWND 1211
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Function"
    abort

    GetSize1Send:
    StrCmp $0 "  2. GetSize                 (file)" 0 GetSize2Send
    StrCpy $FUNCTION 'GetSize1'
    GetDlgItem $1 $HWND 1203
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE1"
    GetDlgItem $1 $HWND 1204
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE2"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:File"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Options"
    Abort

    GetSize2Send:
    StrCmp $0 "                                   (directory)" 0 GetSize3Send
    StrCpy $FUNCTION 'GetSize2'
    GetDlgItem $1 $HWND 1203
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE3"
    GetDlgItem $1 $HWND 1204
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE4"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Options"
    Abort

    GetSize3Send:
    StrCmp $0 "                                   (no size, no subdir)" 0 DriveSpaceSend
    StrCpy $FUNCTION 'GetSize3'
    GetDlgItem $1 $HWND 1203
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE5"
    GetDlgItem $1 $HWND 1204
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE6"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Options"
    Abort

    DriveSpaceSend:
    StrCmp $0 "  3. DriveSpace" 0 GetDrivesSend
    StrCpy $FUNCTION DriveSpace
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$DRIVESPACE1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$DRIVESPACE2"
    GetDlgItem $1 $HWND 1206
    ShowWindow $1 0
    SendMessage $1 ${WM_SETTEXT} 1 "STR:"
    GetDlgItem $1 $HWND 1207
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Drive"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Options"
    abort

    GetDrivesSend:
    StrCmp $0 "  4. GetDrives             (by type)" 0 GetDrives2Send
    StrCpy $FUNCTION GetDrives
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETDRIVES1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1206
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:GetDrivesCallback"
    GetDlgItem $1 $HWND 1207
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    GetDlgItem $1 $HWND 1211
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Function"
    abort

    GetDrives2Send:
    StrCmp $0 "                                   (all by letter)" 0 GetTime1Send
    StrCpy $FUNCTION ''
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    EnableWindow $1 0
    SendMessage $1 ${WM_ENABLE} 1 0
    SendMessage $1 ${WM_SETTEXT} 1 "STR:ALL"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1206
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:GetDrivesCallback"
    GetDlgItem $1 $HWND 1207
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    GetDlgItem $1 $HWND 1211
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Function"
    abort

    GetTime1Send:
    StrCmp $0 "  5. GetTime                (local time)" 0 GetTime2Send
    StrCpy $FUNCTION ''
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    EnableWindow $1 0
    SendMessage $1 ${WM_ENABLE} 1 0
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    EnableWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:L"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    Abort

    GetTime2Send:
    StrCmp $0 "                                   (file time)" 0 GetFileAttributesSend
    StrCpy $FUNCTION GetTime
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETTIME1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETTIME2"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:File"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    Abort

    GetFileAttributesSend:
    StrCmp $0 "  6. GetFileAttributes" 0 GetFileVersionSend
    StrCpy $FUNCTION GetFileAttributes
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEATTRIBUTES1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEATTRIBUTES2"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Path"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Attrib"
    Abort

    GetFileVersionSend:
    StrCmp $0 "  7. GetFileVersion" 0 GetCmdSend
    StrCpy $FUNCTION GetFileVersion
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEVERSION1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:File"
    Abort

    GetCmdSend:
    StrCmp $0 "  8. GetExeName" +3
    StrCmp $0 "  9. GetExePath" +2
    StrCmp $0 "10. GetParameters" 0 GetOptionsSend
    StrCpy $FUNCTION ''
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    Abort

    GetOptionsSend:
    StrCmp $0 "11. GetOptions" 0 GetRootSend
    StrCpy $FUNCTION GetOptions
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETOPTIONS1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETOPTIONS2"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Parameters"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    Abort

    GetRootSend:
    StrCmp $0 "12. GetRoot" 0 GetParentSend
    StrCpy $FUNCTION GetRoot
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETROOT1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:FullPath"
    Abort

    GetParentSend:
    StrCmp $0 "13. GetParent" 0 GetFileNameSend
    StrCpy $FUNCTION GetParent
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETPARENT1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString"
    Abort

    GetFileNameSend:
    StrCmp $0 "14. GetFileName" 0 GetBaseNameSend
    StrCpy $FUNCTION GetFileName
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILENAME1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString"
    Abort

    GetBaseNameSend:
    StrCmp $0 "15. GetBaseName" 0 GetFileExtSend
    StrCpy $FUNCTION GetBaseName
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETBASENAME1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:FileString"
    Abort

    GetFileExtSend:
    StrCmp $0 "16. GetFileExt" 0 BannerTrimPathSend
    StrCpy $FUNCTION GetFileExt
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEEXT1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:FileString"
    Abort

    BannerTrimPathSend:
    StrCmp $0 "17. BannerTrimPath" 0 DirStateSend
    StrCpy $FUNCTION BannerTrimPath
    GetDlgItem $1 $HWND 1201
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$BANNERTRIMPATH1"
    GetDlgItem $1 $HWND 1202
    ShowWindow $1 1
    EnableWindow $1 0
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$BANNERTRIMPATH2"
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString"
    GetDlgItem $1 $HWND 1210
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
    Abort

    DirStateSend:
    StrCmp $0 "18. DirState" 0 RefreshShellIconsSend
    StrCpy $FUNCTION DirState
    GetDlgItem $1 $HWND 1203
    ShowWindow $1 1
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$DIRSTATE1"
    GetDlgItem $1 $HWND 1204
    ShowWindow $1 1
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0
    GetDlgItem $1 $HWND 1209
    SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory"
    Abort

    RefreshShellIconsSend:
    StrCmp $0 "19. RefreshShellIcons" 0 Abort
    StrCpy $FUNCTION ''
    GetDlgItem $1 $HWND 1205
    ShowWindow $1 0

    Abort:
    Abort

;=Enter=
    Enter:
    StrCpy $R0 ''
    StrCpy $R5 ''

    StrCmp $STATE "  1. Locate" Locate
    StrCmp $STATE "  2. GetSize                 (file)" GetSize
    StrCmp $STATE "                                   (directory)" GetSize
    StrCmp $STATE "                                   (no size, no subdir)" GetSize
    StrCmp $STATE "  3. DriveSpace" DriveSpace
    StrCmp $STATE "  4. GetDrives             (by type)" GetDrives
    StrCmp $STATE "                                   (all by letter)" GetDrives
    StrCmp $STATE "  5. GetTime                (local time)" GetTime
    StrCmp $STATE "                                   (file time)" GetTime
    StrCmp $STATE "  6. GetFileAttributes" GetFileAttributes
    StrCmp $STATE "  7. GetFileVersion" GetFileVersion
    StrCmp $STATE "  8. GetExeName" GetExeName
    StrCmp $STATE "  9. GetExePath" GetExePath
    StrCmp $STATE "10. GetParameters" GetParameters
    StrCmp $STATE "11. GetOptions" GetOptions
    StrCmp $STATE "12. GetRoot" GetRoot
    StrCmp $STATE "13. GetParent" GetParent
    StrCmp $STATE "14. GetFileName" GetFileName
    StrCmp $STATE "15. GetBaseName" GetBaseName
    StrCmp $STATE "16. GetFileExt" GetFileExt
    StrCmp $STATE "17. BannerTrimPath" BannerTrimPath
    StrCmp $STATE "18. DirState" DirState
    StrCmp $STATE "19. RefreshShellIcons" RefreshShellIcons
    Abort

    Locate:
    ${Locate} "$R2" "$R3" "LocateCallback"
    IfErrors error
    StrCmp $R0 StopLocate 0 +3
    StrCpy $R0 'stopped'
    goto send
    StrCpy $R0 'done'
    goto send

    GetSize:
    ${GetSize} "$R2" "$R3" $0 $1 $2
    IfErrors error
    StrCpy $R0 "Size=$0$\r$\nFiles=$1$\r$\nFolders=$2"
    goto send

    DriveSpace:
    ${DriveSpace} "$R1" "$R3" $0
    IfErrors error
    StrCpy $R0 "$0"
    goto send

    GetDrives:
    ${GetDrives} "$R1" "GetDrivesCallback"
    StrCmp $R0 StopGetDrives 0 +3
    StrCpy $R0 '$R5stopped'
    goto send
    StrCpy $R0 '$R5done'
    goto send

    GetTime:
    ${GetTime} "$R1" "$R3" $0 $1 $2 $3 $4 $5 $6
    IfErrors error
    StrCpy $R0 'Date=$0/$1/$2 ($3)$\r$\nTime=$4:$5:$6'
    goto send

    GetFileAttributes:
    ${GetFileAttributes} "$R1" "$R3" $0
    IfErrors error
    StrCpy $R0 '$0'
    goto send

    GetFileVersion:
    ${GetFileVersion} "$R1" $0
    IfErrors error
    StrCpy $R0  '$0'
    goto send

    GetExeName:
    ${GetExeName} $0
    StrCpy $R0 '$0'
    goto send

    GetExePath:
    ${GetExePath} $0
    StrCpy $R0 '$0'
    goto send

    GetParameters:
    ${GetParameters} $0
    StrCpy $R0 '$0'
    StrCmp $R0 '' 0 send
    StrCpy $R0 'no parameters'
    goto send

    GetOptions:
    ${GetOptions} "$R1" "$R3" $0
    IfErrors error
    StrCpy $R0  '$0'
    goto send

    GetRoot:
    ${GetRoot} "$R1" $0
    StrCpy $R0  '$0'
    goto send

    GetParent:
    ${GetParent} "$R1" $0
    StrCpy $R0  '$0'
    goto send

    GetFileName:
    ${GetFileName} "$R1" $0
    StrCpy $R0  '$0'
    goto send

    GetBaseName:
    ${GetBaseName} "$R1" $0
    StrCpy $R0  '$0'
    goto send

    GetFileExt:
    ${GetFileExt} "$R1" $0
    StrCpy $R0  '$0'
    goto send

    BannerTrimPath:
    ${BannerTrimPath} "$R1" "$R3" $0
    StrCpy $R0  '$0'
    goto send

    DirState:
    ${DirState} "$R2" $0
    StrCpy $R0  '$0'
    goto send

    RefreshShellIcons:
    ${RefreshShellIcons}
    StrCpy $R0 'done'
    goto send

    error:
    StrCpy $R0 'error'

    send:
    GetDlgItem $1 $HWND 1208
    SendMessage $1 ${WM_SETTEXT} 1 "STR:$R0"

    abort
FunctionEnd

Function LocateCallback
    MessageBox MB_OKCANCEL '$$R9    "path\name"=[$R9]$\n$$R8    "path"          =[$R8]$\n$$R7    "name"        =[$R7]$\n$$R6    "size"           =[$R6]' IDOK +2
    StrCpy $R0 StopLocate

    Push $R0
FunctionEnd

Function GetDrivesCallback
    MessageBox MB_OKCANCEL '$$9    "drive letter"=[$9]$\n$$8    "drive type" =[$8]' IDOK +2
    StrCpy $R0 StopGetDrives
    StrCpy $R5 '$R5$9  [$8 Drive]$\r$\n'

    Push $R0
FunctionEnd

Function .onInit
    InitPluginsDir
    GetTempFileName $INI $PLUGINSDIR
    File /oname=$INI "FileFunc.ini"
FunctionEnd

Page instfiles

Section "Empty"
SectionEnd