[решено] Отображение процесса перемещения файлов

Yashied · Отправлено: **19:05, 02-02-2010** | #19

Или можно так:

Код:

If $CmdLine[0] Then
    Exit FileCopy($CmdLine[1], $CmdLine[2])
EndIf

GUICreate('MyGUI')
$Ani = GUICtrlCreateAvi(@SystemDir & '\shell32.dll', 161, 50, 10)
GUISetState()
GUICtrlSetState($Ani, 1)
$Result = RunWait(@ScriptFullPath & ' "D:\Test.tmp" "C:\"')
If (@error) Or ($Result) Then
    MsgBox(16, '', 'Error!')
Else
    MsgBox(64, '', 'OK')
EndIf
GUICtrlSetState($Ani, 0)
GUIDelete()