PropertySheet in Anwendung

[mkinzler]

No he wrotes his own Display Specifier in a dll and wants to use it in an "normal" Delphi-Application

[flowj]

thats right!
i want to show my own-created Active Directory Property-Page in a 'standalone' Application!

[Remko]

The PSDK sample show the default ADUC property page in your own application (which should also include your page). Perhaps you can use it or adapt it for your own property page? The sample uses:
constructor Create(hInstance: Cardinal; hwndParent: HWND); I'm assuming you pass the tabsheet handle as hwndParent.

Can you attach your complete code?

[flowj]

Hi!
thx for your advices...this helps me quite a lot!
yes i will post it when i have finished it but...
where can i get the files like...JwaActiveX, JwaDSClient, JwaAdsTLB???

[Remko]

They're in the Jedi ApiLib. You need the Win32 Api.

Some more info that might assist you: Can I change the PropSheetHost SDK sample project from .exe to dll

[flowj]

hi,
i have a problem creating and setting the COM Object.

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var
  sheethost: TPropSheetHost;
  Liads: IADs;
  guid: TGUID;
begin
  sheethost := TPropSheetHost.Create(hInstance(Self), Self.Handle);
  guid := StringToGUID('{2E461895-1B42-4214-8B09-704509A6CDB7}');
  OleCheck(sheethost.QueryInterface(guid, Liads));
  sheethost.SetObject(Liads);
end;

On calling "sheethost.QueryInterface(guid, Liads)", i get the Error message "interface not supported" !

Any ideas?

[Remko]

{2E461895-1B42-4214-8B09-704509A6CDB7} Is the GUID to your added sheet? Please check if it's properly registered (search the registry for it). Can you open the normal propsheet?

Why not try to first call the normal propsheet?:

Delphi-Quellcode:

sheethost := TPropSheetHost.Create(hInstance(Self), Self.Handle); 
// Hold a reference count for the CPropSheetHost object.
sheethost.AddRef;
sheethost.SetObject('LDAP://CN=SomeUser,DC=Domain,DC=Local'); 
sheethost.Run;
{
Release the CPropSheetHost object. Other components may still hold a 
reference to the object, so this cannot just be deleted here. Let 
the object delete itself when all references are released.
}
sheethost.Release;