Смотря на каком языке написано, какое соглашение вызовов. В языке c++ все параметры шифруются в имя функции, благодаря чему их потом можно обратно расшифровать. Но есть и минус в таком подходе: простые и понятные функции превращаются в вот такую "красоту": ?a@@YAHD@Z
В разделе отладка нужно настроить вот такую команду:А почему нет?
Про кодеблокс промолчу, там как бы автоматически консоль не закрывается после выполнения, а вот в студии я ничего похожего не нашел. Так что в ней либо через команду либо через батник, выбор не велик.
А вообще, как ты тогда видишь результат выполнения операций в консоли, ведь тебе же нет нужды "ждать нажатия клавиш"?
программа procmon, только она ищет во время выполнения
[setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}
OutputDir=.
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[Code]
function argv(Param: String): TArrayOfString;
begin
SetArrayLength(Result, 2);
case Param[1] of
'"': begin
Result[0] := Copy(Param, 2, Pos('.exe', Lowercase(Param))+2);
Result[1] := RemoveQuotes(Trim(Copy(Param, Length(Result[0])+3, Length(Param))));
end;
else
begin
Result[0] := Copy(Param, 1, Pos('.exe', Lowercase(Param))+3);
Result[1] := RemoveQuotes(Trim(Copy(Param, Length(Result[0])+1, Length(Param))));
end;
end;
end;
function GetInstalledProgramm(Param: String): Boolean;
var
Names, cl: TArrayOfString;
i, ResultCode: Integer;
DisplayName, UninstallString: String;
begin
if RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall', Names) then
for i := 0 to GetArrayLength(Names)-1 do
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + Names[i], 'DisplayName', DisplayName);
if Pos(Lowercase(DisplayName), Lowercase(Param)) > 0 then
begin
Result := True;
if MsgBox('Программа установки обнаружила уже установленную программу ' + DisplayName + '.'#13#10'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes then
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + Names[i], 'UninstallString', UninstallString) then
begin
cl := argv(UninstallString);
if not Exec(cl[0], cl[1], '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
MsgBox('Ошибка удаления.'#13#10'' + SysErrorMessage(ResultCode) + '.'#13#10'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
Break;
end;
end;
end;
procedure InitializeWizard();
begin
GetInstalledProgramm('AutoCad');
end;что обозначают эти настройки для lzma... lzma:a1:mfbt4:d200m:fb128:mc1000:lc8 если можно по подробней
спасибо..теперь всё более прояснилось.
всё уже сделал весила 23 гига установленная....репак мой получился 15,5 гигов что я считаю довольно не плохо. Размер у меня получился даже меньше чем у R.G.Механики и Xataba но чутка больше чем у Qoob и Fitgirl... P/S что касается лолз не это уже чересчур....если только попробовать его на игре с небольшим размером 6-7 гигов весом..а так ну нафиг....
. Да кстати в build'e #40 и #27 (0.0.7.46) такого вроде нет, жаль там все Export'ы зашифрованы, а мне лень подбирать и дизассемблировать. Желаю удачи, больше постараюсь не мучить своими вопросами.
