|
Does anyone here have experience with Exchange Extensions in Delphi and more accurately adding property Pages?
I have this as my TExchangeExtension.GetPages procedure:
//***************************************************************************** //***************************************************************************** function TExchangeExtension.GetPages(lpeecb : IEXCHEXTCALLBACK; ulFlags : ULONG; lppsp : PPROPSHEETPAGE; var lpcpsp : ULONG):HResult;stdcall; begin if (InstalledContext <> EECONTEXT_PROPERTYSHEETS) or (ulFlags <> EEPS_TOOLSOPTIONS) or (FShowingPropSheet) then begin try Result := S_FALSE; lpcpsp := 0; except; end; end else begin Result:=S_OK; lppsp^.dwSize := SizeOf(TPropSheetPage); lppsp^.dwFlags := PSP_DEFAULT;// or PSP_HASHELP; lppsp^.hInstance := HInstance; lppsp^.pszTemplate := MAKEINTRESOURCE(100); lppsp^.hIcon := 0; lppsp^.lParam := integer(pointer(Self)); lppsp^.pfnDlgProc := @PropSheetWndProc; lpcpsp := 1; FShowingPropSheet := true; end; end;
I am sure this used to work, I am using Delphi 6 SP2.
Everytime I close Outlook after viewing the property pages Outlook Crashes.
Jason |
