[Batistas]

El Sanchez,
1)Я это изначально знал;
2)Вы сами писали, что начальный скрипт заводится на ANSI;
3)Вот именно из-за такого перемещения я и перепутал местами инициализацию. Сделал, как Вы сказали - та же ошибка.

Вот архив со скриптом - http://narod.ru/disk/59165927001.1aa...08.12.rar.html. Попробуйте сами скомпилировать setup_2.iss и сами все увидите.

[El Sanchez]

Batistas, все чудесатее и страньше. Скомпилировал, запустил, установил, не ругнулось, запустил поверх несколько раз, с какой-то попытки поймал ошибку. Посмотрите на свой последний скриншот. Из него видно, что функция ReadDCPlusPlus отработала по крайней мере не меньше 2 раз, значит и проблемная строка тоже. У меня ошибка произошла при отработке процедуры CreateTempDownloadDirPage, вызов функции ReadDCPlusPlus, попытка чтения значения ноды из файла DCPlusPlus.xml. Смотрим, как вы создаете эту ноду:

Код:

//tempdir node
objXMLDoc.selectSingleNode('//DCPlusPlus/Settings').AppendChild(objXMLDoc.createNode(1, 'TempDownloadDir', ''));
objXMLDoc.selectSingleNode('//DCPlusPlus/Settings/TempDownloadDir').setAttribute('type', 'string');
objXMLDoc.selectSingleNode('//DCPlusPlus/Settings/TempDownloadDir').text := DownloadDirPage.Values[0];

1. Строку с setAttribute я сказал убрать вообще, не нужен этот атрибут. Я убрал только эту строку и ошибка исчезла. Правда, позже вернув ее назад, ошибку получить не удалось .
2. DownloadDirPage.Values[0] заменить на TempDownloadDirPage.Values[0].

P.S. Я еще говорил сменить XML Parser на более новый, пробуйте:

Batistas, попробуйте вместо объекта Microsoft.XMLDOM подставить одно из значений: MSXML2.DOMDocument, MSXML2.DOMDocument.3.0, MSXML2.DOMDocument.4.0, MSXML2.DOMDocument.6.0. »

[Batistas]

El Sanchez, все сделал - та же самая ошибка

[Gnom_aka_Lexander]

Ivan_009, Легко...

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]
var
  FlagG, FlagT : Boolean;
  CurLeft, CurTop : Integer;
  
procedure ShiftGTimer(Sender: TObject);
begin
  case FlagG of
    True  : WizardForm.Left := WizardForm.Left + 3;
    False : WizardForm.Left := WizardForm.Left - 3;
  end;
  if WizardForm.Left <= 0 then
    FlagG := True;
  if WizardForm.Left >= CurLeft then
    FlagG := False;
end;

procedure ShiftTTimer(Sender: TObject);
begin
  case FlagT of
    True  : WizardForm.Top := WizardForm.Top + 3;
    False : WizardForm.Top := WizardForm.Top - 3;
  end;
  if WizardForm.Top <= 0 then
    FlagT := True;
  if WizardForm.Top >= CurTop then
    FlagT := False;
end;

procedure InitializeWizard();
begin
  FlagG := False;
  FlagT := False;
  with WizardForm do
  begin
    Width := ClientWidth;
    Height := ClientHeight;
    BorderStyle := bsNone;
    CurLeft := Left;
    CurTop := Top;
  end;
  with TTimer.Create(WizardForm) do
  begin
    Interval := 40;
    OnTimer := @ShiftGTimer;
  end;
  with TTimer.Create(WizardForm) do
  begin
    Interval := 40;
    OnTimer := @ShiftTTimer;
  end;
end;

[YURSHAT]

Легко... »

[Ivan_009]

Gnom_aka_Lexander, не работает
Мне нужно чтобы передвигать мышью а не чтобы она сама ходуном ходила.....

[YURSHAT]

Ivan_009

[Ivan_009]

YURSHAT, Спасибо большое но почемуто с данным скриптом нехочет работать.

[YURSHAT]

Ivan_009, ну коль выкладываете киллометровый скрипт, то выкладывайте полностью, с нужными файлами. Ибо что бы проверить, нужно скомпилить, а у меня нет времени подбирать нужные файлы....

[Snoopak96]

Ivan_009,
http://rghost.ru/39717893