Jump to content

Amax

Members
  • Posts

    2
  • Joined

  • Last visited

Amax's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. I had the same problem and in my opinion this is an AV scanning issue: UPX tries to access the file for compressing while AV scanner is still scanning it. Using a short delay in AutoIt3Wrapper solved my problem (this refers to version 3.3.6.1 !) Edit the file C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3 and locate the following lines: If FileExists($UPX_Pgm) Then ConsoleWrite(">Running:(" & $PgmVer & "):" & $UPX_Pgm & '" ' & $INP_Upx_Parameters & ' "' & $ScriptFile_Out & '"' & @CRLF) $Pid = Run('"' & $UPX_Pgm & '" ' & $INP_Upx_Parameters & ' "' & $ScriptFile_Out & '"', "", @SW_HIDE, $STDOUT_CHILD) If $Pid Then $Handle = _ProcessExitCode($Pid) ProcessWaitClose($Pid) ConsoleWrite(StdoutRead($Pid)) StdioClose($Pid) $ExitCode = _ProcessExitCode($Pid, $Handle) Right after line If FileExists($UPX_Pgm) Then insert this code (at line 1096) ; Waiting several seconds before creating UPXed file ; - just for the case an AV-scanning process is ; blocking file operation ; Default: 2 Seconds for each 500 kBytes, adjust to suite your demand. ;====== BEGIN ======= Global $iPatch_FileSize, $iPatch_Seconds $iPatch_FileSize = FileGetSize($ScriptFile_Out) $iPatch_Seconds = Round($iPatch_FileSize / 512000) ConsoleWrite(">pre-UPX: Filesize of [" & $ScriptFile_Out & "] is " & $iPatch_FileSize & " kBytes" & @CRLF) ConsoleWrite(">pre-UPX: Waiting " & $iPatch_Seconds & " seconds ...") Sleep($iPatch_Seconds * 2000) ConsoleWrite(" done." & @CRLF) ;====== END ========= Compile it and replace old AutoIt3Wrapper.exe. You should use an other filename as AutoIt3Wrapper.exe and rename it after compiling. Hope this works for you, too. Good luck!
  2. Hi, maybe anyone knows a method of how to modify a Delphi TStringGrid control (seems to be some sort of listview)? I've searched the forum but the only thing I could find were a few hints for modifying a TListview control. Unfortunately that doesn't work ... the item count shows up -1 or 0 (there is at least one entry in it). I need to read the content of the rows and modify some of the text-entries and change the symbol to another one (the grid is also holding one icon per row). This is what the AU3-window-info is showing to me: CODE>>>> Window <<<<Title: Installation completed! Class: TfrmRun Position: 691, 696 Size: 589, 328 Style: 0x96C00000 ExStyle: 0x00000101 >>>> Control <<<< Class: TStringGrid Instance: 1 ID: 1770014 Text: Position: 702, 726 Size: 449, 257 ControlClick Coords: 123, 19 Style: 0x54010000 ExStyle: 0x00000200 I'm not familiar with delphi programming and I can't say which other control comes close to the TStringGrid. Any hints are welcome, thank you in advance! Cheers, aMax.
×
×
  • Create New...