Sign in to follow this  
Followers 0
60aside

Resize ProgressOn Window?

7 posts in this topic

Is there any way to resize (make wider) the ProgressOn window in the script below????

I need to view the progress of a large folder copy, but the window seems too small and some of the text is missing for large path names..

Thanks...

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <GUIConstants.au3>
#Include <File.au3>


_CopyDirWithProgress("d:\Image\", "c:\Image\")



Func _CopyDirWithProgress($sOriginalDir, $sDestDir)
;$sOriginalDir and $sDestDir are quite selfexplanatory...
;This func returns:
; -1 in case of critical error, bad original or destination dir
; 0 if everything went all right
; >0 is the number of file not copied and it makes a log file
; if in the log appear as error message '0 file copied' it is a bug of some windows' copy command that does not redirect output... 

If StringRight($sOriginalDir, 1) <> '\' Then $sOriginalDir = $sOriginalDir & '\'
If StringRight($sDestDir, 1) <> '\' Then $sDestDir = $sDestDir & '\'
If $sOriginalDir = $sDestDir Then Return -1

ProgressOn("Pre-Caching the Altiris Packages, Please wait.", 'Calculating number of files in directory...' & @LF & @LF)
Local $aFileList = _FileSearch($sOriginalDir)
If $aFileList[0] = 0 Then
ProgressOff()
SetError(1)
Return -1
EndIf

If FileExists($sDestDir) Then
If Not StringInStr(FileGetAttrib($sDestDir), 'd') Then
ProgressOff()
SetError(2)
Return -1
EndIf
Else
DirCreate($sDestDir)
If Not FileExists($sDestDir) Then
ProgressOff()
SetError(2)
Return -1
EndIf
EndIf

Local $iDirSize, $iCopiedSize = 0, $fProgress = 0
Local $c, $FileName, $iOutPut = 0, $sLost = '', $sError
Local $Sl = StringLen($sOriginalDir)

_Quick_Sort($aFileList, 1, $aFileList[0])

$iDirSize = Int(DirGetSize($sOriginalDir) / 1024)

ProgressSet(Int($fProgress * 100), $aFileList[$c], 'Copying files:')
For $c = 1 To $aFileList[0]
$FileName = StringTrimLeft($aFileList[$c], $Sl)
ProgressSet(Int($fProgress * 100), $aFileList[$c] & ' -> '& $sDestDir & $FileName & @LF & 'Total Kb: ' & $iDirSize & @LF & 'Done Kb: ' & $iCopiedSize, 'Copying files: ' & Round($fProgress * 100, 2) & ' % ' & $c & '/' &$aFileList[0])

If StringInStr(FileGetAttrib($aFileList[$c]), 'd') Then
DirCreate($sDestDir & $FileName)
Else
If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then
If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then;Tries a second time
If RunWait(@ComSpec & ' /c copy /y "' & $aFileList[$c] & '" "' & $sDestDir & $FileName & '">' & @TempDir & '\o.tmp', '', @SW_HIDE)=1 Then;and a third time, but this time it takes the error message
$sError = FileReadLine(@TempDir & '\o.tmp',1)
$iOutPut = $iOutPut + 1
$sLost = $sLost & $aFileList[$c] & ' ' & $sError & @CRLF
EndIf
FileDelete(@TempDir & '\o.tmp')
EndIf
EndIf

FileSetAttrib($sDestDir & $FileName, "+A-RSH");<- Comment this line if you do not want attribs reset.

$iCopiedSize = $iCopiedSize + Int(FileGetSize($aFileList[$c]) / 1024)
$fProgress = $iCopiedSize / $iDirSize
EndIf
Next

ProgressOff()

If $sLost <> '' Then;tries to write the log somewhere.
If FileWrite($sDestDir & 'notcopied.txt',$sLost) = 0 Then
If FileWrite($sOriginalDir & 'notcopied.txt',$sLost) = 0 Then
FileWrite(@WorkingDir & '\notcopied.txt',$sLost)
EndIf
EndIf
EndIf

Return $iOutPut
EndFunc ;==>_CopyDirWithProgress

Func _FileSearch($sIstr, $bSF = 1)
; $bSF = 1 means looking in subfolders
; $sSF = 0 means looking only in the current folder.
; An array is returned with the full path of all files found. The pos [0] keeps the number of elements.
Local $sCriteria, $sBuffer, $iH, $iH2, $sCS, $sCF, $sCF2, $sCP, $sFP, $sOutPut = '', $aNull[1]
$sCP = StringLeft($sIstr, StringInStr($sIstr, '\', 0, -1))
If $sCP = '' Then $sCP = @WorkingDir & '\'
$sCriteria = StringTrimLeft($sIstr, StringInStr($sIstr, '\', 0, -1))
If $sCriteria = '' Then $sCriteria = '*.*'

;To begin we seek in the starting path.
$sCS = FileFindFirstFile($sCP & $sCriteria)
If $sCS <> - 1 Then
Do
$sCF = FileFindNextFile($sCS)
If @error Then
FileClose($sCS)
ExitLoop
EndIf
If $sCF = '.' Or $sCF = '..' Then ContinueLoop
$sOutPut = $sOutPut & $sCP & $sCF & @LF
Until 0
EndIf

;And after, if needed, in the rest of the folders.
If $bSF = 1 Then
$sBuffer = @CR & $sCP & '*' & @LF;The buffer is set for keeping the given path plus a *.
Do
$sCS = StringTrimLeft(StringLeft($sBuffer, StringInStr($sBuffer, @LF, 0, 1) - 1), 1);current search.
$sCP = StringLeft($sCS, StringInStr($sCS, '\', 0, -1));Current search path.
$iH = FileFindFirstFile($sCS)
If $iH <> - 1 Then
Do
$sCF = FileFindNextFile($iH)
If @error Then
FileClose($iH)
ExitLoop
EndIf
If $sCF = '.' Or $sCF = '..' Then ContinueLoop
If StringInStr(FileGetAttrib($sCP & $sCF), 'd') Then
$sBuffer = @CR & $sCP & $sCF & '\*' & @LF & $sBuffer;Every folder found is added in the begin of buffer
$sFP = $sCP & $sCF & '\'; for future searches
$iH2 = FileFindFirstFile($sFP & $sCriteria); and checked with the criteria.
If $iH2 <> - 1 Then
Do
$sCF2 = FileFindNextFile($iH2)
If @error Then
FileClose($iH2)
ExitLoop
EndIf
If $sCF2 = '.' Or $sCF2 = '..' Then ContinueLoop
$sOutPut = $sOutPut & $sFP & $sCF2 & @LF;Found items are put in the Output.
Until 0
EndIf
EndIf
Until 0
EndIf
$sBuffer = StringReplace($sBuffer, @CR & $sCS & @LF, '')
Until $sBuffer = ''
EndIf

If $sOutPut = '' Then
$aNull[0] = 0
Return $aNull
Else
Return StringSplit(StringTrimRight($sOutPut, 1), @LF)
EndIf
EndFunc ;==>_FileSearch

Func _Quick_Sort(ByRef $SortArray, $First, $Last);Larry's code
Dim $Low, $High
Dim $Temp, $List_Separator

$Low = $First
$High = $Last
$List_Separator = StringLen($SortArray[ ($First + $Last) / 2])
Do
While (StringLen($SortArray[$Low]) < $List_Separator)
$Low = $Low + 1
WEnd
While (StringLen($SortArray[$High]) > $List_Separator)
$High = $High - 1
WEnd
If ($Low <= $High) Then
$Temp = $SortArray[$Low]
$SortArray[$Low] = $SortArray[$High]
$SortArray[$High] = $Temp
$Low = $Low + 1
$High = $High - 1
EndIf
Until $Low > $High
If ($First < $High) Then _Quick_Sort($SortArray, $First, $High)
If ($Low < $Last) Then _Quick_Sort($SortArray, $Low, $Last)
EndFunc ;==>_Quick_Sort

Share this post


Link to post
Share on other sites



can anyone help here guys or is it not possible?

Thanks.

Share this post


Link to post
Share on other sites

This is how I size a mask [to cover a Window]

$WinSize = WinGetPos("Microsoft Office Outlook", "A program")
SplashTextOn($Title, $SysMessage, $WinSize[2], $WinSize[3], $WinSize[0], $WinSize[1], $Just, $Font, $FontSize, $FontWeight)

The SpashTextOn is the mask. Whilst it is not exactly what you want it might give you a starting point in 'Help'

Ant..

Share this post


Link to post
Share on other sites

I'm having the same problem with the progresson window.

I need to have it bigger, but it seems there is no way to set the size.

Can anyone help? - the original answer given to this question was not very helpful

#include <WindowsConstants.au3>

GUISetFont(0, 400, 0)
_Main()
Func _Main()
SplashTextOn("Please Wait", "Creating Directories and Copying Files....", 400, 50, -1, -1, 0,"", 12)
Sleep(1000)
SplashOff()
_CopyDirWithProgress("E:\CD Releases\1.2.3.4_CF\fscommand", "E:\_tmp")
EndFunc


Func _CopyDirWithProgress($sOriginalDir, $sDestDir)
;$sOriginalDir and $sDestDir are quite selfexplanatory...
;This func returns:
; -1 in case of critical error, bad original or destination dir
; 0 if everything went all right
; >0 is the number of file not copied and it makes a log file
; if in the log appear as error message '0 file copied' it is a bug of some windows' copy command that does not redirect output...

If StringRight($sOriginalDir, 1) <> '\' Then $sOriginalDir = $sOriginalDir & '\'
If StringRight($sDestDir, 1) <> '\' Then $sDestDir = $sDestDir & '\'
If $sOriginalDir = $sDestDir Then Return -1

ProgressOn('Copying Files...', 'Making list of Files...' & @LF & @LF, '', -1, -1, 16)

Local $aFileList = _FileSearch($sOriginalDir)
If $aFileList[0] = 0 Then
ProgressOff()
SetError(1)
Return -1
EndIf

If FileExists($sDestDir) Then
If Not StringInStr(FileGetAttrib($sDestDir), 'd') Then
ProgressOff()
SetError(2)
Return -1
EndIf
Else
DirCreate($sDestDir)
If Not FileExists($sDestDir) Then
ProgressOff()
SetError(2)
Return -1
EndIf
EndIf

Local $iDirSize, $iCopiedSize = 0, $fProgress = 0
Local $c, $FileName, $iOutPut = 0, $sLost = '', $sError
Local $Sl = StringLen($sOriginalDir)

_Quick_Sort($aFileList, 1, $aFileList[0])

$iDirSize = Int(DirGetSize($sOriginalDir) / 1024)

ProgressSet(Int($fProgress * 100), $aFileList[$c], 'Copying file:')
For $c = 1 To $aFileList[0]
$FileName = StringTrimLeft($aFileList[$c], $Sl)
ProgressSet(Int($fProgress * 100), $aFileList[$c] & ' -> '& $sDestDir & $FileName & @LF & 'Total KB: ' & $iDirSize & @LF & 'Done KB: ' & $iCopiedSize, 'Copying file: ' & Round($fProgress * 100, 2) & ' % ' & $c & '/' &$aFileList[0])

If StringInStr(FileGetAttrib($aFileList[$c]), 'd') Then
DirCreate($sDestDir & $FileName)
Else
If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then
If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then;Tries a second time
If RunWait(@ComSpec & ' /c copy /y "' & $aFileList[$c] & '" "' & $sDestDir & $FileName & '">' & @TempDir & '\o.tmp', '', @SW_HIDE)=1 Then;and a third time, but this time it takes the error message
$sError = FileReadLine(@TempDir & '\o.tmp',1)
$iOutPut = $iOutPut + 1
$sLost = $sLost & $aFileList[$c] & ' ' & $sError & @CRLF
EndIf
FileDelete(@TempDir & '\o.tmp')
EndIf
EndIf

;~ FileSetAttrib($sDestDir & $FileName, "+A-RSH");<- Comment this line if you do not want attribs reset.

$iCopiedSize = $iCopiedSize + Int(FileGetSize($aFileList[$c]) / 1024)
$fProgress = $iCopiedSize / $iDirSize
EndIf
Next

ProgressOff()

If $sLost <> '' Then;tries to write the log somewhere.
If FileWrite($sDestDir & 'notcopied.txt',$sLost) = 0 Then
If FileWrite($sOriginalDir & 'notcopied.txt',$sLost) = 0 Then
FileWrite(@WorkingDir & '\notcopied.txt',$sLost)
EndIf
EndIf
EndIf

Return $iOutPut
EndFunc ;==>_CopyDirWithProgress

Func _FileSearch($sIstr, $bSF = 1)
; $bSF = 1 means looking in subfolders
; $sSF = 0 means looking only in the current folder.
; An array is returned with the full path of all files found. The pos [0] keeps the number of elements.
Local $sCriteria, $sBuffer, $iH, $iH2, $sCS, $sCF, $sCF2, $sCP, $sFP, $sOutPut = '', $aNull[1]
$sCP = StringLeft($sIstr, StringInStr($sIstr, '\', 0, -1))
If $sCP = '' Then $sCP = @WorkingDir & '\'
$sCriteria = StringTrimLeft($sIstr, StringInStr($sIstr, '\', 0, -1))
If $sCriteria = '' Then $sCriteria = '*.*'

;To begin we seek in the starting path.
$sCS = FileFindFirstFile($sCP & $sCriteria)
If $sCS <> - 1 Then
Do
$sCF = FileFindNextFile($sCS)
If @error Then
FileClose($sCS)
ExitLoop
EndIf
If $sCF = '.' Or $sCF = '..' Then ContinueLoop
$sOutPut = $sOutPut & $sCP & $sCF & @LF
Until 0
EndIf

;And after, if needed, in the rest of the folders.
If $bSF = 1 Then
$sBuffer = @CR & $sCP & '*' & @LF;The buffer is set for keeping the given path plus a *.
Do
$sCS = StringTrimLeft(StringLeft($sBuffer, StringInStr($sBuffer, @LF, 0, 1) - 1), 1);current search.
$sCP = StringLeft($sCS, StringInStr($sCS, '\', 0, -1));Current search path.
$iH = FileFindFirstFile($sCS)
If $iH <> - 1 Then
Do
$sCF = FileFindNextFile($iH)
If @error Then
FileClose($iH)
ExitLoop
EndIf
If $sCF = '.' Or $sCF = '..' Then ContinueLoop
If StringInStr(FileGetAttrib($sCP & $sCF), 'd') Then
$sBuffer = @CR & $sCP & $sCF & '\*' & @LF & $sBuffer;Every folder found is added in the begin of buffer
$sFP = $sCP & $sCF & '\'; for future searches
$iH2 = FileFindFirstFile($sFP & $sCriteria); and checked with the criteria.
If $iH2 <> - 1 Then
Do
$sCF2 = FileFindNextFile($iH2)
If @error Then
FileClose($iH2)
ExitLoop
EndIf
If $sCF2 = '.' Or $sCF2 = '..' Then ContinueLoop
$sOutPut = $sOutPut & $sFP & $sCF2 & @LF;Found items are put in the Output.
Until 0
EndIf
EndIf
Until 0
EndIf
$sBuffer = StringReplace($sBuffer, @CR & $sCS & @LF, '')
Until $sBuffer = ''
EndIf

If $sOutPut = '' Then
$aNull[0] = 0
Return $aNull
Else
Return StringSplit(StringTrimRight($sOutPut, 1), @LF)
EndIf
EndFunc ;==>_FileSearch

Func _Quick_Sort(ByRef $SortArray, $First, $Last);Larry's code
Dim $Low, $High
Dim $Temp, $List_Separator

$Low = $First
$High = $Last
$List_Separator = StringLen($SortArray[ ($First + $Last) / 2])
Do
While (StringLen($SortArray[$Low]) < $List_Separator)
$Low = $Low + 1
WEnd
While (StringLen($SortArray[$High]) > $List_Separator)
$High = $High - 1
WEnd
If ($Low <= $High) Then
$Temp = $SortArray[$Low]
$SortArray[$Low] = $SortArray[$High]
$SortArray[$High] = $Temp
$Low = $Low + 1
$High = $High - 1
EndIf
Until $Low > $High
If ($First < $High) Then _Quick_Sort($SortArray, $First, $High)
If ($Low < $Last) Then _Quick_Sort($SortArray, $Low, $Last)
EndFunc ;==>_Quick_Sort

#cs
SplashTextOn("Please Wait", "Installing Novell Client....", 250, 30, -1, -1, 32,"", 12)
RunWait("C:\ZDM65\NovCli\setupnw.exe /acu /u:C:\ZDM65\NovCli\admin\acu.txt", "C:\ZDM65", @SW_MAXIMIZE)
SplashOff()
SplashTextOn("Please Wait", "Installing ZenWorks Agent....", 250, 30, -1, -1, 32,"", 12)
RunWait(@SystemDir & "\msiexec.exe /i C:\ZDM65\ZfdAgent.msi ADDLOCAL=WorkstationManager,RemoteManagement,ApplicationLauncher,Imaging,MirrorDriver ALLUSERS=1 STARTUP_APPEXPLORE=0 REBOOT=ReallySuppress /passive","C:\ZDM65")
SplashOff()
SplashTextOn("Please Wait", "Installing Registry Settings....", 400, 50, -1, -1, 0,"", 12)
; Reset client welcome bitmap
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Novell\NWGINA\Welcome Screen", "Bitmap", "REG_SZ", "NWWELCOME.BMP")

; Remove SecEdit settings in base build
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SeCEdit\Reg Values\MACHINE/Software/Microsoft/Windows/CurrentVersion/Policies/System/LegalNoticeCaption")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SeCEdit\Reg Values\MACHINE/Software/Microsoft/Windows/CurrentVersion/Policies/System/LegalNoticeText")

; Remove old legal notice text
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon" , "legalnoticecaption")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon" , "legalnoticetext")


RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system" , "legalnoticecaption")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system" , "legalnoticetext")


; Force users to hit C-A-D to login and accept legal notice
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "DisableCAD" , "REG_DWORD" , "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "dontdisplaylastusername" , "REG_DWORD" , "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "legalnoticecaption" , "REG_SZ" , "Important Notice")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "legalnoticetext" , "REG_SZ" , "Do not login unless you are an authorised user. In doing so you agree to abide by ICT Policies as detailed in the document 'Best Practice Policy for the provision and use of ICT' which is available on the IT Services section of the Intranet or from the IT Service Desk.")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "CompatibleRUPSecurity" , "REG_DWORD" , "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" , "passwordexpirywarning" , "REG_DWORD" , "00000000")

; Synchronise NDS Username with Windows Username
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Novell\Login\TAB SETTINGS\NT Credentials" , "Sync NDS Username" , "REG_DWORD" , "00000001")

; Don't display last user name
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Novell\Location Profiles\Services\{1E6CEEA1-FB73-11CF-BD76-00001B27DA23}\Default" , "Save On Exit" , "REG_DWORD" , "00000000")

; Show Hidden Files
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" , "Hidden", "REG_DWORD" , "00000001")

; Taskbar - Disable Personalised Menus
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" , "IntelliMenus" , "REG_SZ" , "NO")

; Taskbar - Expand Printers
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" , "CascadePrinters" , "REG_SZ" , "YES")

; Change Windows Source Path to Network
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" , "SourcePath" , "REG_SZ" , "\\\\FS_xxx\\VOL1\\Winxp\\i386")

; Set AWI server
RegWrite("HKEY_LOCAL_MACHINE\Software\Novell\ZENworks\ZENWSREG" , "ImportServer" , "REG_SZ" , "1x.1x.1x.6x")

;Show Drive letters first in Explorer
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer" , "ShowDriveLettersFirst" , "REG_DWORD" , "00000004")

;Change My Computer to "user" on "PC"
RegWrite("HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}" , "LocalizedString" , "REG_EXPAND_SZ" , "%USERNAME% on %COMPUTERNAME%")

;Clear Temporary Internet files on exit of IE
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache" , "Persistent" , "REG_DWORD" , "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache" , "Persistent" , "REG_DWORD" , "00000000")

;Set Desktop Wallpaper to remain as default
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop" , "Wallpaper" , "REG_SZ" , "%WINDIR%\\SYSTEM32\\xxxx.bmp")

;Display the full path in both places
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState" , "Settings" , "REG_BINARY" , "0c,00,02,00,1b,01,e7,77,60,00,00,00")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState" , "FullPath" , "REG_DWORD" , "00000001")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState" , "FullPathAddress" , "REG_DWORD" , "00000001")

;Disable Messenger Service
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger" , "Start" , "REG_DWORD" , "00000004")

;Force Explorer to Explore and not Open
RegWrite("HKEY_CLASSES_ROOT\Folder\shell" , "" , "REG_SZ" , "explore")

;Disable "Welcome to Windows" message
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips" , "Show" , "REG_DWORD" , "00000000")

;Remove Language bar
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" , "internat.exe")
SplashOff()
Run('C:\ZDM65\zshutdwn.exe /action:reboot /force /caption:"Restarting, please wait..." /delay:5 /nocancel', "C:\ZDM65")
#ce

Thanx!

Fran

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

you can try winmove for resize your window ! ;)

but the progressbar isn't resize...

ProgressOn('Copying Files...', 'Making list of Files...' & @LF & @LF, '', -1, -1, 16)
WinMove ( 'Copying Files...', "", -1, -1, 400, 100 )
Edited by wakillon

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Thanx sooooo much. Very helpful ;)

Have a good one!

F

Share this post


Link to post
Share on other sites

Thanx sooooo much. Very helpful ;)

Have a good one!

F

Thanks !

Winmove is like filemove : it can do 2 actions but we often forget the second ! :)


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0