Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

l2Notepad

-

Общение и обсуждение, архив Lineage 2

- Cобытия, информация, вопросы и ответы по Lineage 2

Ответ
 
Опции темы
Старый 08.02.2012, 16:18   #1
 Разведчик
Аватар для BiTru
 
BiTru на правильном пути
Регистрация: 28.04.2011
Сообщений: 7
Популярность: 28
Сказал(а) спасибо: 0
Поблагодарили 10 раз(а) в 5 сообщениях
 
Post l2Notepad

Пытаюсь написать оболочку для редактирования Lineage ( .DAT файлов) но вот загвоздка не могу получить раскодированный файл ,
поправьте пожалуйста исходник буду очень благодарен!

[Ссылки могут видеть только зарегистрированные пользователи. ]


Исходник [Ссылки могут видеть только зарегистрированные пользователи. ]

Вот в этой части кода происходит расшифровка файла dat с помощью батника что я тут не так написал))?
Код:
procedure TForm1.FileListBox1DblClick(Sender: TObject); { РАСШИФРОФКА }
var
  h: hwnd;
  i: Integer;
begin

copyfile(PChar('l2encdec.exe'), PChar(FileListBox1.Directory), False);
  // Открыть файл для расшифровки
  // Выдергиваем имя файла и расширение
  s := FileListBox1.Items[FileListBox1.ItemIndex];
  Memo3.Lines.Add('{ РАСШИФРОФКА... }  ' + s);
  begin

    // Теперь нам следует указать файл который нам нужен.
    // Команды Раскодировать -s  полный путь к файлу. Пример: C:\l2encdec.exe -s C:\l2.ini
    // запуск скрыт SW_HIDE   заУпск виден SW_SHOW

   ShellExecute(h, 'open', 'l2encdec.exe',PChar(' -s ' +FileListBox1.FileName), NiL, SW_SHOW);
 
    begin
      // Открыть в Memo1 раскодированый файл

      sleep(1000);
      Memo1.Clear;
      Memo1.Lines.LoadFromFile('dec-' + s);
      begin

        // Подсчет строк в Memo
        Memo2.Clear;
        For i := 0 to Memo1.Lines.Count - 1 do // Запускаем цикл поиска строки
          Memo2.Lines.Add(IntToStr(i));
        Edit1.Text := IntToStr(i);
         Memo3.Lines.Add('{ РАСШИФРОФКА ЗВЕРШИНА }  ' + s);
      end;
    end;
end;
    end;
end;
Delphi в логе выдает ошибку!

First chance exception at $771EB727. Exception class EFOpenError with message 'Cannot open file "G:\Исходник\l2Notepad\dec-Lineage2US.ini". Не удается найти указанный файл'. Process l2Notepad.exe (4480)
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 06:09.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net