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?