Получить код возврата консольного rar.exe

[arvitaly]

Код: Выделить всё

D:\Program Files\WinRAR\rar.exe a D:\temp @d:\file.lst

так тоже работает, в чем проблема не понимаю, app.path указать проблема?

[Хакер]

Но, ведь при ByRef тоже ошибка!

Ох. Что значит тоже? В приведённом тобою примере и есть ByRef. В приведённом мною примере — ByVal, но там нет ошибки. Слово «ByRef» и слово «тоже» заставляют читателя думать о том, что есть случай не с ByRef, а с чем-то другим, при котором тоже возникает ошибка. Что это за случай, можно узнать?

Да, указатель на разные типы данных просто указатель, и он проходит. Но ведь это ошибка, т.к. процедура ожидает Long, а ей суют Double. И, если бы целая часть в Double не занимала младшие биты, фиг бы вам тут прошло! Ой...

Чушь.

Когда параметр ByVal-ный и типы не совпадают, исходное значение просто приводится к нужному типу. Это можно сделать, и это делается.
Когда параметр ByRef-ный и типы не совпадают, исходное значение тоже можно привести к нужному типу, но что толку с него будет, если функция ждёт не само значение (нужного типа), а ссылку на значение нужного типа? Передать ссылку на сконвертированное значение? Тогда функция, совершая операции с ByRef-аргументом, будет фактически модифицировать временное приведённое значение, а не значение оригинальной переменной, на которую была дана ссылка.

Т.е.

Код: Выделить всё

Function First()
    Dim aaa As Long
    Dim bbb As Double

    aaa = 777
    bbb = 888

    Second aaa, bbb

    ' aaa по прежнему будет 777, а не 0
    ' bbb будет 0
End Function

Function Second(ByRef x As Double, ByRef y As Double)
     x = 0
     y = 0
End Function

Таким образом, код становится бесполезным, но кроме того, опасным, потому что порождает трудноотлавливаемые и (главное) не очевидные на первый взгляд ошибки.

Но другое дело, когда ByRef-параметр, и передаётся либо возврат функции, либо константа. Тогда значение будет приведено к нужному типу и положено на стек, а в функцию будет передана ссылка на это мгновенное on-stack значение. В этом случае ничего опасного произойти не может. Потому что в отличие от предыдущего примера, где есть оригинальная переменная, изменение которой программист ожидает, но которая на деле не изменяется, здесь ничего схожего нет. Поэтому нет смысла запрещать компиляцию такого кода. Такой код не породит неоднозначностей.

Это же всё очевидно. Должно быть...

[Space]

я думал, что по умолчанию идёт ByVal - читал где-то про это в книжке. Или по давности и отсутствия применения на практике я всё попутал.

Когда параметр ByVal-ный и типы не совпадают, исходное значение просто приводится к нужному типу. Это можно сделать, и это делается.

Ну и возникают потом переполнения. Вообще, не нужно было бы делать преобразований, а строго следить за типами!

[Space]

D:\Program Files\WinRAR\rar.exe a D:\temp @d:\file.lst

Да чё это я должен в параметрах rar-у указывать полные пути? Должно и так работать. Rar должон смотреть файло из своей папки запуска! Хакер, если ты такой умный, и для тебя всё так прозрачно, расколдуй принцип действия Shell

[arvitaly]

Думаю когда ты запускаешь rar через shell его рабочей папкой становится рабочая папка твоего проекта

[Space]

тоже так думаю. Но с какой радости? А при автозагрузке какая рабочая папка?

[arvitaly]

Та, где находится твой exe надо полагать

[arvitaly]

Используй

Код: Выделить всё

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

, там все можно задать и он сразу возвращает дескриптор запущенного процесса для твоего процесса.