Я нашёл такое решение
procedure TfrmMain.Button1Click(Sender: TObject);
var
PDFLibrary: TQuickPDF;
UnlockResult: Integer;
fs: TFileStream;
begin
PDFLibrary := TQuickPDF.Create;
try
UnlockResult := PDFLibrary.UnlockKey('password');
if UnlockResult = 1 then begin...
Может кому-то поможет...
При переходе на DelphiXE столкнулся с проблемой: компонент DevArt ODAC_v6.90.0.55 отказывался устанавливаться.
Поскольку ODAC v7.00 нигде достать не удалось, пришлось сделать следующее.
1. В файл Dac.inc добавил строки
{$IFDEF VER220} { Delphi XE }
{$DEFINE D14}...
Ну значит надо дизассемблировать эту прогу и смотреть алгоритм.
Если действительно на делфи написана, то можно попробовать декомпилятор DeDe
Собственно в чём состоит задача? Если есть дешифратор, значит надо сделать шифратор?
Первый макрос должен выглядеть примерно так
Sub Макрос1()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
ThisWorkbook.ActiveSheet.Range("A" & Строкаввода).Select
End Sub
Во...
Если вдруг найдутся люди, которые возьмутся за "расширенное описание по этому поводу", хотелось бы увидеть сравнительные характеристики различных компонентов для создания скриптов.
Дело в том, что в своей программе использую FastScript. Сейчас скрипт разросся до примерно 20 тыс. строк и его...