Пытаюсь написать оболочку для редактирования 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)