ActiveX регистрация, метод обхода

[jangle]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
ClassFactory:IClassFactory2;
DllHandle:THandle;
ADllGetClassObject:TDllGetClassObject;
AObject:INoRegister;
begin
DllHandle:=LoadLibrary('C:\Program Files\Borland\Delphi6\Projects\DelphiMaster\ComHelo2\noregister.dll');
ADllGetClassObject:=GetProcAddress(DllHandle,'DllGetClassObject');
OleCheck(ADllGetClassObject(CLASS_NoRegister_,IClassFactory2,ClassFactory));
ClassFactory.CreateInstance(nil,INoRegister,AObject);
OleCheck(AObject.Method1);
end;

Дельфийский код, который позваляет использовать ActiveX DLL без регистрации в реестре.

[tyomitch]

Не любая ActiveX DLL сможет работать без регистрации в реестре.
VB-шная - не сможет в том случае, если между классами есть зависимости (т.е. практически любая ActiveX DLL с >1 классом).

[tyomitch]

Вот у меня небольшой вопрос, восстановлять права доступа после каждого изменения в памяти, или это не имеет значения?

Не имеет значения. Можно вообще не восстанавливать.
После первой разблокировки, все остальные вызовы VirtualProtect уже, по сути, ничего в памяти не меняют.

[jangle]

Не любая ActiveX DLL сможет работать без регистрации в реестре.
VB-шная - не сможет в том случае, если между классами есть зависимости (т.е. практически любая ActiveX DLL с >1 классом).

А разве нельзя сразу несколько классов в память загрузить? СOM это ведь только "интерфейс" взаимодействия...

[tyomitch]

Не любая ActiveX DLL сможет работать без регистрации в реестре.
VB-шная - не сможет в том случае, если между классами есть зависимости (т.е. практически любая ActiveX DLL с >1 классом).

А разве нельзя сразу несколько классов в память загрузить? СOM это ведь только "интерфейс" взаимодействия...

VB-классы друг с другом, как ни странно, взаимодействуют тоже через COM.
И если эти классы не зарегистрированы, то взаимодействие срывается.

[GM]

Вроде бы поставил хук на реестр. Теперь вопрос, что нужно перенаправлять и куда? Как понимаю, с HKCR\* в HKCU\Software\Classes.

[tyomitch]

Угу, точно.