[Maza Faka]

Creat0R
В итоге сделал так:

Код:

Dim $dest = "c:\Адреналин.avi", $i = 0
Run(@ComSpec & " /c copy /y d:\Video\Films\Адреналин.avi " & $dest, "", @SW_HIDE)

ProgressOn("Please wait...", "Copying file", "", -1, -1, 16)
AdlibEnable("Check", 500)

While 1
    Sleep(100)
WEnd

Func Check()
    If FileMove($dest, $dest, 1) Then
        AdlibDisable()
        ProgressSet(100, "Done")
        Sleep(500)
        Exit
    Else
        $i += 10
        If $i > 100 Then $i = 0
            ProgressSet($i, "file copyied")
        EndIf
    EndFunc

[Creat0R]

Maza Faka,

В итоге сделал так:

Тоже вариант. А зачем делать If FileMove($dest, $dest, 1) Then? можно просто проверять завершился ли дочерний процесс (PID возвращённый от Run() ).
Я кстати в своём примере немного переборщил - Нужно было наоборот, запускать в главном цикле сам прогресс, а в отдельном процессе копирование, и тогда скррипт намного аккуратнее и короче:

Код:

Dim $source = "d:\Video\Films\Адреналин.avi", $dest = "c:\Адреналин.avi", $i = 0

ProgressOn("Please wait...", "Now copying file", "", -1, -1, 16)

$CopyPid = Run(@AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteLine "FileCopy(''' & $source & ''', ''' & $dest & ''')"')
While ProcessExists($CopyPid)
    $i += 1
    If $i = 100 Then $i = 0
    ProgressSet($i, $i & " percent")
    Sleep(200)
 Wend

ProgressSet(100, "Done")
Sleep(1000)
ProgressOff()

[Diamond]

Creat0R

Вопрос только в том, какой метод болшье использует ресурсов, ведь в твоём примере используется Dll'ка (посылая сообщения) при каждом нажатии мышки... а в моём примере при движении мышки

А может наоборот... В твоём примере при каждом движении мышки, а в моём примере только при нажатии? Как бы там ни было у тебя используются две функции, а у меня всего одна.
P.S. ...имхо, не предмет для спора, оба варианта хороши.

[Creat0R]

Diamond,

А может наоборот... В твоём примере при каждом движении мышки, а в моём примере только при нажатии?

Ну я вроде так и написал (в обратном порядке).

у тебя используются две функции, а у меня всего одна

Да, вторая чтобы определить где находиться курсор, чтобы не тащить окно если курсор мышки, к примеру, над линией границы окна, или над Title Bar...

не предмет для спора

Я не ради спора (вообще спорить не люблю), я просто привёл альтернативу которой до сих пор сам пользовался, теперь точно буду использовать твой метод, он менее требователен к ресурсам и быстро применим к разным скриптам .

[Diamond]

Creat0R,

Ну я вроде так и написал (в обратном порядке).

Значит я неправильно понял...

я просто привёл альтернативу которой до сих пор сам пользовался, теперь точно буду использовать твой метод, он менее требователен к ресурсам и быстро применим к разным скриптам

А я использовал метод со стилем, думаю что он совсем не требователен к ресурсам, но считаю что этот метод "не оригинален":

Код:

#include <GuiConstants.au3>
$HWnd = GUICreate("DRAG_ELEMENT",320,240,-1,-1,$WS_OVERLAPPEDWINDOW)

;~ --- Фоновое изображение (должно быть первым элементом!):
$BgPic=GUICtrlCreatePic(@WindowsDir & '\Web\Wallpaper\Windows XP.jpg',0,0,800,600)
   GUICtrlSetPos      (-1,0,0,320,240)
   GUICtrlSetResizing (-1,$GUI_DOCKBORDERS)
   GUICtrlSetState    (-1,$GUI_DISABLE)

;~ --- Все остальные элементы:
$butt1=GUICtrlCreateButton("test_button",10,10,70,20)
;~ ...и т.д.

;~ --- Элемент перетаскивания (должен быть последним!):
$DRAG_ELEMENT=GUICtrlCreatePic('',0,0,320,240,-1,$GUI_WS_EX_PARENTDRAG)
   GUICtrlSetResizing(-1,$GUI_DOCKBORDERS)

GUISetState()

While 1
   $msg = GUIGetMsg()
   Switch $msg
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
WEnd

[gvshil]

Помогите разобраться:
при установке из командной строки - все ОК!

Код:

start /wait msiexec.exe /i "PROMT Expert 7 Giant.msi"KBRIYPGWNEULCSJAQHXOFVM=хххххххх pidkey=хххххххххх-хххх /qb

а из под AutoIt ну ни как

Код:

Global $file=@ScriptDir & '\PROMT Expert 7 Giant.msi'
  ;установка PROMT Expert 7 Giant
  RunWait ( 'msiexec /i' & $file & " KBRIYPGWNEULCSJAQHXOFVM=" & 'хххххххх' & " pidkey=" & 'хххххххххх-хххх' & ' /qb' )

переименовываю PROMT Expert 7 Giant.msi в setup.msi

Код:

Global $file=@ScriptDir & '\setup.msi'
  ;установка PROMT Expert 7 Giant
  RunWait ( 'msiexec /i' & $file & " KBRIYPGWNEULCSJAQHXOFVM=" & 'хххххххх' & " pidkey=" & 'хххххххххх-хххх' & ' /qb' )

все ставится.
В чем моя проблема?

[Creat0R]

gvshil,

В чем моя проблема?

Полагаю что в первом случае, из за того что присутствуют пробелы путь оказывается неверным...

Код:

Global $file=@ScriptDir & '\PROMT Expert 7 Giant.msi'  ;установка PROMT Expert 7 Giant
 RunWait ('msiexec.exe /i "' & $file & '" KBRIYPGWNEULCSJAQHXOFVM=хххххххх pidkey=хххххххххх-хххх /qb')

[gvshil]

Creat0R,

из за того что присутствуют пробелы путь оказывается неверным.. »

а как это исправить? Не знаю, как в командной стоке не получается (с кавычками..)

[Creat0R]

gvshil,

а как это исправить?

Ты пробовал пример что я дал? он не работает?

[gvshil]

Creat0R,
Спасибо огромное, все работает. Не посмотрел, думал, что повтор моего куска!