[Creat0R]

Maza Faka,
PID я получаю по пути к запускному файлу (_PathIsProcess()), но не тут проблема, всё(?) дело в функции _SysTrayIconPids().

amel27,

может эту UDF тоже подправить и обрабатывать ВСЕ иконки как безымянные, т.е. по индексу?

Гинеально!!! Работает!!!
Спасибо!!!

[Maza Faka]

Как правильно создавать многомерные массивы? Например функция ProcessList возвращает двумерный массив:

Код:

$list = ProcessList()
for $i = 1 to $list[0][0]
  msgbox(0, $list[$i][0], $list[$i][1])
next

По аналогии пытаюсь создать свой двумерный массив, но не получается:

Код:

Global $TestArray[4][4] = [[3, "First", "Second", "Third"], [3, "John", "Steve", "Arnold"]]

For $i = 1 To $TestArray[0][0]
    MsgBox(0, $TestArray[$i][0], $TestArray[$i][1])
Next

Работает только, если сделать так:

Код:

MsgBox(0, $TestArray[0][$i], $TestArray[1][$i])

Кто нибудь может разжевать

[Maza Faka]

amel27
Ты ГУРУ!
Сделал так:

Код:

#include "SysTray_UDF.au3"

$ListArray = ProcessList("LA.exe")

MsgBox(0, "Hide", "Now hide is Light Alloy icons")
For $i = 1 To $ListArray[0][0]
    $index = _SysTrayIconIndex($ListArray[$i][1])
    _SysTrayIconVisible(1, $index)
Next

Sleep(1000)

MsgBox(0, "Visible", "Now visible is Light Alloy icons")
For $i = 1 To $ListArray[0][0]
    $index = _SysTrayIconIndex($ListArray[$i][1])
    _SysTrayIconVisible(0, $index)
Next

Работает!

P.S.
Может сообщишь автору, о том, что изменил его библиотеку и теперь её можно считать не бетой, а релизом.

[Angelus]

А как заставить GUI интерфейс использовать рисунки которые вшиты в EXE файл???

[SAOPP]

Т.е. закрыть языковую панель таким способом, что я предложил не получится?

[Creat0R]

Maza Faka,

Как правильно создавать многомерные массивы?

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

Код:

#include <Array.au3>

Dim $Array = _Array2DCreate("Jimmy|Mike|George", "0|1|2")

_ArrayDisplay($Array)

Func _Array2DCreate($1DStr, $2DStr, $Delim="|")
    Local $2DArray[1][1], $iUbound
    Local $BiggestArray = StringSplit($1DStr, $Delim)
    Local $SmallestArray = StringSplit($2DStr, $Delim)

        If UBound($SmallestArray) > UBound($BiggestArray) Then
        Local $TempArray = $BiggestArray
        $BiggestArray = $SmallestArray
        $SmallestArray = $TempArray
    EndIf

        ReDim $SmallestArray[UBound($BiggestArray)]

        For $i = 1 To UBound($BiggestArray)-1
        $iUbound = UBound($2DArray)
        ReDim $2DArray[$iUbound+1][2]
        $2DArray[$iUbound][0] = $BiggestArray[$i]
        If $SmallestArray[$i] <> "" Then $2DArray[$iUbound][1] = $SmallestArray[$i]
    Next
    $2DArray[0][0] = $iUbound
    Return $2DArray
EndFunc

“Ведущий массив”, это самый большой найденный массив .

Angelus,

как заставить GUI интерфейс использовать рисунки которые вшиты в EXE файл???

Смотря для чего, обычно можно использовать GuiCtrlSetImage(-1, "File.exe", 0)
Где 0 это имя ресурса изображения в Exe'шнике.

SAOPP,

закрыть языковую панель таким способом, что я предложил не получится?

Ты так и не ответил на мой вопрос:

может есть уже открыто подобное окошко где то? перезапустить систему пробовал?

У меня это работает

[amel27]

Maza Faka

Ты ГУРУ

да ну брось - скрипт содержал весь нужный код... хотя не совсем понятна мотивация автора при выборе алгоритма, может из соображений производительности?

Может сообщишь автору, о том, что изменил его библиотеку и теперь её можно считать не бетой, а релизом.

это надо просить Creat0R'а, я на офсайте редко бываю... его вопрос, ему и обосновывать перед автором

[SAOPP]

может есть уже открыто подобное окошко где то? перезапустить систему пробовал? »

Да нет, нету ничего. Ни на виртуалке ни на реальной машине ничего не происходит...

Сейчас протестировал, на виртуалке всё работает, хм странно, надеюсь это трабла этой ОС, поэтому думаю при установке на реальную машину скрипт сработает

[Creat0R]

Многие (и наверное я сам) тут спрашивали, как копировать большой файл, и при этом получать данные прогресса...
Так вот, используя быстро набирающую популярность на оф. форуме библиотеку DllCallBack.au3, можно этого добиться очень просто!!!:

Код:

#include <DllCallBack.au3>

_FileCopyEx("C:\BigFile.avi", @ScriptDir & "\BigFile.avi")

Func _FileCopyEx($Source, $Dest)
    If Not FileExists($Source) Then Return SetError(1)
    ProgressOn("_FileCopyEx() Demo", "Копирование, ждите плиз...")
    $pCopyProgressRoutine = _DllCallBack("_CopyProgressRoutine", "uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr")
    DllCall("kernel32.dll", "int", "CopyFileExA", _
        "str", $Source, _
        "str", $Dest, _
        "ptr", $pCopyProgressRoutine, _
        "ptr", 0, _
        "int", 0, _
        "int", 0)
    _DllCallBack_Free($pCopyProgressRoutine)
    Sleep(1000)
    ProgressOff()
EndFunc

Func _CopyProgressRoutine($TotalFileSize, $TotalBytesTransferred, $StreamSize, $StreamBytesTransferred, $dwStreamNumber, $dwCallbackReason, $hSourceFile, $hDestinationFile, $lpData)
    $Precent = $TotalBytesTransferred/$TotalFileSize*100
    ProgressSet($Precent, "Проценты: " & Round($Precent, 1) & " %")
    Return 0
EndFunc   ;==>_CopyProgressRoutine

Вот и всё!

[TERMINAL]

Creat0R, а как можно сделать если мне, например, нужно скопировать целую папку ( I386 c диска)и чтобы прогрес был и показывал сколько осталось минут и процентов? Можешь помочь?