git.sur5r.net Git - bacula/bacula/blob - bacula/src/win32/win32_installer/DumpLog.nsh

   1 !ifndef LVM_GETITEMCOUNT\r
   2   !define LVM_GETITEMCOUNT 0x1004\r
   3 !endif\r
   4 !define LVM_GETITEMTEXT 0x102D\r
   5 \r
   6 Function DumpLog\r
   7   Exch $5\r
   8   Push $0\r
   9   Push $1\r
  10   Push $2\r
  11   Push $3\r
  12   Push $4\r
  13   Push $6\r
  14 \r
  15   FindWindow $0 "#32770" "" $HWNDPARENT\r
  16   GetDlgItem $0 $0 1016\r
  17   StrCmp $0 0 error\r
  18   FileOpen $5 $5 "w"\r
  19   StrCmp $5 0 error\r
  20     SendMessage $0 ${LVM_GETITEMCOUNT} 0 0 $6\r
  21     System::Alloc ${NSIS_MAX_STRLEN}\r
  22     Pop $3\r
  23     StrCpy $2 0\r
  24     System::Call "*(i, i, i, i, i, i, i, i, i) i \\r
  25       (0, 0, 0, 0, 0, r3, ${NSIS_MAX_STRLEN}) .r1"\r
  26     loop: StrCmp $2 $6 done\r
  27       System::Call "User32::SendMessageA(i, i, i, i) i \\r
  28         ($0, ${LVM_GETITEMTEXT}, $2, r1)"\r
  29       System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)"\r
  30       FileWrite $5 "$4$\r$\n"\r
  31       IntOp $2 $2 + 1\r
  32       Goto loop\r
  33     done:\r
  34       FileClose $5\r
  35       System::Free $1\r
  36       System::Free $3\r
  37       Goto exit\r
  38   error:\r
  39     MessageBox MB_OK error\r
  40   exit:\r
  41     Pop $6\r
  42     Pop $4\r
  43     Pop $3\r
  44     Pop $2\r
  45     Pop $1\r
  46     Pop $0\r
  47     Exch $5\r
  48 FunctionEnd\r