Sacred_bpk
Турист
- Credits
- 10
Так... звиняйте.... вопрос снят.
Разобрался с текущей версией. Вместо использования dcu-файлов попробовал прицепить имеющуюся DLL:
unit QuickPDFDLL;
interface
uses QuickPDFDLL0721 ;
Type
TQuickPDFDLL = class(TQuickPDFDLL0721)
public
constructor CreateUnLock ;
end;
implementation
uses Dialogs ;
{ TQuickPDFDLL }
constructor TQuickPDFDLL.CreateUnLock;
Var
UnlockResult: Integer;
begin
Create('QuickPDFDLL0721.dll') ;
UnlockResult := UnlockKey('jy4p34jy6ye34r4596je36t7y');
if UnlockResult <> 1 then
ShowMessage('Неверный лицензионный ключ');
end;
end.
Собственно все изменения в проекте
Разобрался с текущей версией. Вместо использования dcu-файлов попробовал прицепить имеющуюся DLL:
unit QuickPDFDLL;
interface
uses QuickPDFDLL0721 ;
Type
TQuickPDFDLL = class(TQuickPDFDLL0721)
public
constructor CreateUnLock ;
end;
implementation
uses Dialogs ;
{ TQuickPDFDLL }
constructor TQuickPDFDLL.CreateUnLock;
Var
UnlockResult: Integer;
begin
Create('QuickPDFDLL0721.dll') ;
UnlockResult := UnlockKey('jy4p34jy6ye34r4596je36t7y');
if UnlockResult <> 1 then
ShowMessage('Неверный лицензионный ключ');
end;
end.
Собственно все изменения в проекте