xy-capture/nsis/NSIS/Examples/WordFunc.nsi

;_____________________________________________________________________________
;
;                          Word Functions
;_____________________________________________________________________________
;
; 2005 Shengalts Aleksander aka Instructor (Shengalts@mail.ru)

Name "Word Functions"
OutFile "WordFunc.exe"
Caption "$(^Name)"
XPStyle on
RequestExecutionLevel user

Var INI
Var HWND
Var STATE

!include "WinMessages.nsh"
!include "WordFunc.nsh"

Page Custom ShowCustom LeaveCustom

Function ShowCustom
	InstallOptions::initDialog "$INI"
	Pop $hwnd
	InstallOptions::show
	Pop $0
FunctionEnd

Function LeaveCustom
	ReadINIStr $0 $INI "Settings" "State"
	StrCmp $0 0 Enter

	GetDlgItem $1 $HWND 1202
	EnableWindow $1 1
	GetDlgItem $1 $HWND 1203
	ShowWindow $1 1
	GetDlgItem $1 $HWND 1204
	ShowWindow $1 1
	GetDlgItem $1 $HWND 1206
	EnableWindow $1 1
	GetDlgItem $1 $HWND 1205
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1206
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"

	ReadINIStr $0 $INI "Field 1" "State"
	StrCmp $0 "1. WordFind        (Find word by number)" 0 WordFind2Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:-4"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Word):"
	goto WordFindSend

	WordFind2Send:
	StrCmp $0 "                           (Delimiter exclude)" 0 WordFind3Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E-2{"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Before{ or }after delimiter):"
	goto WordFindSend

	WordFind3Send:
	StrCmp $0 "                           (Sum of words)" 0 WordFind4Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:#"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Sum of words):"
	goto WordFindSend

	WordFind4Send:
	StrCmp $0 "                           (Sum of delimiters)" 0 WordFind5Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E*"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Option"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Sum of delimiters):"
	goto WordFindSend

	WordFind5Send:
	StrCmp $0 "                           (Find word number)" 0 WordFind6Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:/Program Files"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:/Word"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Word #):"
	goto WordFindSend

	WordFind6Send:
	StrCmp $0 "                           ( }} )" 0 WordFind7Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E+2}}"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Before{{ or }}after word):"
	goto WordFindSend

	WordFind7Send:
	StrCmp $0 "                           ( {} )" 0 WordFind8Send
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+2{}"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Without word):"
	goto WordFindSend

	WordFind8Send:
	StrCmp $0 "                           ( *} )" 0 WordFind2XSend
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|C:\"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E+2*}"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Before{* or *}after word with word):"
	goto WordFindSend

	WordFind2XSend:
	StrCmp $0 "2. WordFind2X" 0 WordReplace1Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:[C:\io.sys];[C:\logo.sys];[C:\WINDOWS]"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:[C:\"
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 1
	SendMessage $1 ${WM_SETTEXT} 1 "STR:];"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E+2"
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Delimiter1"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Delimiter2"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (Word):"
	abort

	WordReplace1Send:
	StrCmp $0 "3. WordReplace (Replace)" 0 WordReplace2Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys|C:\logo.sys|C:\WINDOWS"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:SYS"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:bmp"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+2"
	goto WordReplaceSend

	WordReplace2Send:
	StrCmp $0 "                           (Delete)" 0 WordReplace3Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys|C:\logo.sys|C:\WINDOWS"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:SYS"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E+"
	goto WordReplaceSend

	WordReplace3Send:
	StrCmp $0 "                           (Multiple-replace)" 0 WordAdd1Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys||||||C:\logo.sys|||C:\WINDOWS"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+1*"
	goto WordReplaceSend

	WordAdd1Send:
	StrCmp $0 "4. WordAdd        (Add)" 0 WordAdd2Send
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+C:\WINDOWS|C:\config.sys|C:\IO.SYS"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (String1 + String2):"
	goto WordAddSend

	WordAdd2Send:
	StrCmp $0 "                           (Delete) " 0 WordInsertSend
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E-C:\WINDOWS|C:\config.sys|C:\IO.SYS"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (String1 - String2):"
	goto WordAddSend

	WordInsertSend:
	StrCmp $0 "5. WordInsert" 0 StrFilter1Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys|C:\WINDOWS"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|"
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 1
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\logo.sys"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:E+2"
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Delimiter"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result:"
	abort

	StrFilter1Send:
	StrCmp $0 "6. StrFilter           (UpperCase)" 0 StrFilter2Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:123abc 456DEF 7890|%#"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (String in uppercase):"
	goto StrFilterSend

	StrFilter2Send:
	StrCmp $0 "                           (LowerCase)" 0 StrFilter3Send
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:123abc 456DEF 7890|%#"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:-"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:ef"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (String in lowercase except EF):"
	goto StrFilterSend

	StrFilter3Send:
	StrCmp $0 "                           (Filter)" 0 VersionCompareSend
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:123abc 456DEF 7890|%#"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:+12"
	GetDlgItem $1 $HWND 1203
	SendMessage $1 ${WM_SETTEXT} 1 "STR:b"
	GetDlgItem $1 $HWND 1204
	SendMessage $1 ${WM_SETTEXT} 1 "STR:def"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result (String Digits + Letters + b - def):"
	goto StrFilterSend

	VersionCompareSend:
	StrCmp $0 "7. VersionCompare" 0 VersionConvertSend
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:1.1.1.9"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:1.1.1.01"
	GetDlgItem $1 $HWND 1203
	ShowWindow $1 0
	GetDlgItem $1 $HWND 1204
	ShowWindow $1 0
	GetDlgItem $1 $HWND 1206
	EnableWindow $1 0
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Version1"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Version2"
	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:Result (0-equal 1-newer 2-older):"
	abort

	VersionConvertSend:
	StrCmp $0 "8. VersionConvert" 0 Abort
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:9.0c"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1203
	ShowWindow $1 0
	GetDlgItem $1 $HWND 1204
	ShowWindow $1 0
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1206
	EnableWindow $1 0
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Version"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:CharList"
	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:Result (numerical version format):"
	abort

	Abort:
	Abort

	WordFindSend:
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 0
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys|C:\logo.sys|C:\Program Files|C:\WINDOWS"
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Delimiter"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	Abort

	WordReplaceSend:
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 1
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Replace it"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:         with"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Word #"
	GetDlgItem $1 $HWND 1211
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Result:"
	Abort

	WordAddSend:
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 0
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1201
	SendMessage $1 ${WM_SETTEXT} 1 "STR:C:\io.sys|C:\logo.sys|C:\WINDOWS"
	GetDlgItem $1 $HWND 1202
	SendMessage $1 ${WM_SETTEXT} 1 "STR:|"
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String1"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Delimiter"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String2"
	Abort

	StrFilterSend:
	GetDlgItem $1 $HWND 1203
	EnableWindow $1 1
	GetDlgItem $1 $HWND 1206
	EnableWindow $1 0
	GetDlgItem $1 $HWND 1207
	SendMessage $1 ${WM_SETTEXT} 1 "STR:String"
	GetDlgItem $1 $HWND 1208
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Filter"
	GetDlgItem $1 $HWND 1209
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Include"
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:Exclude"
	Abort

;=Enter=
	Enter:
	StrCpy $0 ''
	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"

	StrCmp $STATE "1. WordFind        (Find word by number)" WordFind
	StrCmp $STATE "                           (Delimiter exclude)" WordFind
	StrCmp $STATE "                           (Find in string)" WordFind
	StrCmp $STATE "                           (Sum of words)" WordFind
	StrCmp $STATE "                           (Sum of delimiters)" WordFind
	StrCmp $STATE "                           (Find word number)" WordFind
	StrCmp $STATE "                           ( }} )" WordFind
	StrCmp $STATE "                           ( {} )" WordFind
	StrCmp $STATE "                           ( *} )" WordFind
	StrCmp $STATE "2. WordFind2X" WordFind2X
	StrCmp $STATE "3. WordReplace (Replace)" WordReplace
	StrCmp $STATE "                           (Delete)" WordReplace
	StrCmp $STATE "                           (Multiple-replace)" WordReplace
	StrCmp $STATE "4. WordAdd        (Add)" WordAdd
	StrCmp $STATE "                           (Delete) " WordAdd
	StrCmp $STATE "5. WordInsert" WordInsert
	StrCmp $STATE "6. StrFilter           (UpperCase)" StrFilter
	StrCmp $STATE "                           (LowerCase)" StrFilter
	StrCmp $STATE "                           (Filter)" StrFilter
	StrCmp $STATE "7. VersionCompare" VersionCompare
	StrCmp $STATE "8. VersionConvert" VersionConvert
	Abort

	WordFind:
	${WordFind} "$R1" "$R2" "$R4" $R0
	IfErrors 0 Send
	StrCpy $0 $R0
	StrCmp $R0 3 0 +3
	StrCpy $3 '"+1" "-1" "+1}" "+1{" "#" "/word"'
	goto error3
	StrCmp $R0 2 0 error1
	StrCpy $R4 $R4 '' 1
	StrCpy $1 $R4 1
	StrCmp $1 / 0 error2
	StrCpy $R4 $R4 '' 1
	StrCpy $R0 '"$R4" no such word.'
	goto Send

	WordFind2X:
	${WordFind2X} "$R1" "$R2" "$R3" "$R4" $R0
	IfErrors 0 Send
	StrCpy $0 $R0
	StrCmp $R0 3 0 +3
	StrCpy $3 '"+1" "-1"'
	goto error3
	StrCmp $R0 2 +3
	StrCpy $R0 '"$R2...$R3" no words found.'
	goto Send
	StrCpy $R4 $R4 '' 1
	StrCpy $1 $R4 1
	StrCmp $1 / 0 +2
	StrCpy $R4 $R4 '' 1
	StrCpy $R0 '"$R4" no such word.'
	goto Send

	WordReplace:
	${WordReplace} "$R1" "$R2" "$R3" "$R4" $R0
	IfErrors 0 Send
	StrCpy $0 $R0
	StrCmp $R0 3 0 +3
	StrCpy $3 '"+1" "+1*" "+" "+*" "{}"'
	goto error3
	StrCmp $R0 2 0 error1
	StrCpy $R4 $R4 '' 1
	goto error2

	WordAdd:
	${WordAdd} "$R1" "$R2" "$R4" $R0
	IfErrors 0 Send
	StrCpy $0 $R0
	StrCmp $R0 3 0 error1empty
	StrCpy $3 '"+text" "-text"'
	goto error3

	WordInsert:
	${WordInsert} "$R1" "$R2" "$R3" "$R4" $R0
	IfErrors 0 Send
	StrCpy $0 $R0
	StrCmp $R0 3 0 +3
	StrCpy $3 '"+1" "-1"'
	goto error3
	StrCmp $R0 2 0 error1empty
	StrCpy $R4 $R4 '' 1
	goto error2

	StrFilter:
	${StrFilter} "$R1" "$R2" "$R3" "$R4" $R0
	IfErrors 0 Send
	StrCpy $R0 'Syntax error'
	goto Send

	VersionCompare:
	${VersionCompare} "$R1" "$R2" $R0
	goto Send

	VersionConvert:
	${VersionConvert} "$R1" "$R2" $R0
	goto Send

	error3:
	StrCpy $R0 '"$R4" syntax error ($3)'
	goto Send
	error2:
	StrCpy $R0 '"$R4" no such word number'
	goto Send
	error1empty:
	StrCpy $R0 '"$R2" delimiter is empty'
	goto Send
	error1:
	StrCpy $R0 '"$R2" delimiter not found in string'
	goto Send

	Send:
	GetDlgItem $1 $HWND 1205
	SendMessage $1 ${WM_SETTEXT} 1 "STR:$R0"
	GetDlgItem $1 $HWND 1206
	SendMessage $1 ${WM_SETTEXT} 1 "STR:$0"
	abort
FunctionEnd

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

Page instfiles

Section "Empty"
SectionEnd