Dump log to file: Difference between revisions
From NSIS Wiki
Jump to navigationJump to search
(→The Function: Added limited Unicode support) |
m (→The Function: Last one?) |
||
| (3 intermediate revisions by the same user not shown) | |||
| Line 20: | Line 20: | ||
Here is the function: | Here is the function: | ||
<highlight-nsis> | <highlight-nsis> | ||
!define LVM_GETITEMCOUNT 0x1004 | !define /IfNDef LVM_GETITEMCOUNT 0x1004 | ||
!define LVM_GETITEMTEXTA 0x102D | !define /IfNDef LVM_GETITEMTEXTA 0x102D | ||
!define LVM_GETITEMTEXTW 0x1073 | !define /IfNDef LVM_GETITEMTEXTW 0x1073 | ||
!if "${NSIS_CHAR_SIZE}" > 1 | !if "${NSIS_CHAR_SIZE}" > 1 | ||
!define LVM_GETITEMTEXT ${LVM_GETITEMTEXTW} | !define /IfNDef LVM_GETITEMTEXT ${LVM_GETITEMTEXTW} | ||
!else | !else | ||
!define LVM_GETITEMTEXT ${LVM_GETITEMTEXTA} | !define /IfNDef LVM_GETITEMTEXT ${LVM_GETITEMTEXTA} | ||
!endif | !endif | ||
Function DumpLog | Function DumpLog | ||
Exch $5 | Exch $5 | ||
| Line 37: | Line 37: | ||
Push $4 | Push $4 | ||
Push $6 | Push $6 | ||
FindWindow $0 "#32770" "" $HWNDPARENT | FindWindow $0 "#32770" "" $HWNDPARENT | ||
GetDlgItem $0 $0 1016 | GetDlgItem $0 $0 1016 | ||
| Line 46: | Line 45: | ||
System::Call '*(&t${NSIS_MAX_STRLEN})p.r3' | System::Call '*(&t${NSIS_MAX_STRLEN})p.r3' | ||
StrCpy $2 0 | StrCpy $2 0 | ||
System::Call "*(i, i, i, i, i, p, i, i, i) | System::Call "*(i, i, i, i, i, p, i, i, i) p (0, 0, 0, 0, 0, r3, ${NSIS_MAX_STRLEN}) .r1" | ||
loop: StrCmp $2 $6 done | loop: StrCmp $2 $6 done | ||
System::Call "User32::SendMessage( | System::Call "User32::SendMessage(p, i, p, p) p ($0, ${LVM_GETITEMTEXT}, $2, r1)" | ||
System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)" | System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)" | ||
!ifdef DumpLog_As_UTF16LE | |||
FileWriteUTF16LE ${DumpLog_As_UTF16LE} $5 "$4$\r$\n" | |||
!else | |||
FileWrite $5 "$4$\r$\n" ; Unicode will be translated to ANSI! | FileWrite $5 "$4$\r$\n" ; Unicode will be translated to ANSI! | ||
!endif | |||
IntOp $2 $2 + 1 | IntOp $2 $2 + 1 | ||
Goto loop | Goto loop | ||
| Line 64: | Line 67: | ||
Pop $1 | Pop $1 | ||
Pop $0 | Pop $0 | ||
Pop $5 | |||
FunctionEnd | FunctionEnd | ||
</highlight-nsis> | </highlight-nsis> | ||
[[Category:Logging Functions]] | [[Category:Logging Functions]] | ||
Latest revision as of 10:18, 12 August 2021
| Author: KiCHiK (talk, contrib) |
Description
This function will dump the log of the installer (installer details) to a file of your choice. I created this function for Afrow_UK who requested a way to dump the log to a file in this forum thread. This function will not work when your installer is run in silent mode.
How To Use
To use it push a file name and call it. It will dump the log to the file specified. For example:
GetTempFileName $0 Push $0 Call DumpLog
Or:
StrCpy $0 "$EXEDIR\install.log" Push $0 Call DumpLog
The Function
Here is the function:
!define /IfNDef LVM_GETITEMCOUNT 0x1004 !define /IfNDef LVM_GETITEMTEXTA 0x102D !define /IfNDef LVM_GETITEMTEXTW 0x1073 !if "${NSIS_CHAR_SIZE}" > 1 !define /IfNDef LVM_GETITEMTEXT ${LVM_GETITEMTEXTW} !else !define /IfNDef LVM_GETITEMTEXT ${LVM_GETITEMTEXTA} !endif Function DumpLog Exch $5 Push $0 Push $1 Push $2 Push $3 Push $4 Push $6 FindWindow $0 "#32770" "" $HWNDPARENT GetDlgItem $0 $0 1016 StrCmp $0 0 exit FileOpen $5 $5 "w" StrCmp $5 "" exit SendMessage $0 ${LVM_GETITEMCOUNT} 0 0 $6 System::Call '*(&t${NSIS_MAX_STRLEN})p.r3' StrCpy $2 0 System::Call "*(i, i, i, i, i, p, i, i, i) p (0, 0, 0, 0, 0, r3, ${NSIS_MAX_STRLEN}) .r1" loop: StrCmp $2 $6 done System::Call "User32::SendMessage(p, i, p, p) p ($0, ${LVM_GETITEMTEXT}, $2, r1)" System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)" !ifdef DumpLog_As_UTF16LE FileWriteUTF16LE ${DumpLog_As_UTF16LE} $5 "$4$\r$\n" !else FileWrite $5 "$4$\r$\n" ; Unicode will be translated to ANSI! !endif IntOp $2 $2 + 1 Goto loop done: FileClose $5 System::Free $1 System::Free $3 exit: Pop $6 Pop $4 Pop $3 Pop $2 Pop $1 Pop $0 Pop $5 FunctionEnd
