想請問一下各位大大: 小弟在寫ActiveForm上面遇到ㄌ幾各問題 1.就是每一次瀏覽的時候都會出現下列的對話框.可是我已經把安全性調整到最低ㄌ.為什麼每次都還會出現.要怎麼讓他不出現ㄌ 2.在請教大大,如何在ActiveForm上用Thread.是跟AP程式一樣.直接include進來 使用.還是要用其他的辦法.

如果只是單純調整成低安全性某些ActiceX仍然會提示，要自己去ActiveX的選項調整一下。

GGL: 可否麻煩指點一下,要如何去ActiveX的選項調整一下    

引言: 如果只是單純調整成低安全性某些ActiceX仍然會提示，要自己去ActiveX的選項調整一下。

IE->網路網路選項->安全性->自訂層級，自行調整在上面那個樹狀結構裡面有關ActiveX的設定，如果不清楚就全部把他啟動，只是如果你瀏覽一些有安裝ActiveX的網站就會自動安裝ActiveX，對安全性而言可能不是很好

GGL: 這各部分我有試過ㄌ.可是結果還是一樣. 是不是程式有些方面要注意,麻煩大大幫忙 <>< face="Verdana, Arial, Helvetica">引言: IE->網路網路選項->安全性->自訂層級，自行調整在上面那個樹狀結構裡面有關ActiveX的設定，如果不清楚就全部把他啟動，只是如果你瀏覽一些有安裝ActiveX的網站就會自動安裝ActiveX，對安全性而言可能不是很好

這我就不是很清楚囉....sorry 我之前也都是這樣做的，只是那時候我只簡單用了一個Form跟Button，也沒做其他的東西，你試試看只用簡單的元件，程式碼先不要寫試試看行不行

將你的ActiveForm 中的TActiveFormFactory改成TSafeActiveFormFactory    

initialization
// TActiveFormFactory.Create(
   TSafeActiveFormFactory.Create(
      ComServer,
      TActiveFormControl,
      Txxx,
      Class_xxx,
      1,
      '',
      OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
      tmApartment);

TSafeActiveFormFactory 定義如下 :

unit SafeFactory;
interface
uses ComObj, ActiveX, AXCtrls;    const
  CATID_SafeForScripting: TGUID = '{7DD95801-9882-11CF-9FA9-00AA006C42C4}';
  CATID_SafeForInitializing: TGUID =
'{7DD95802-9882-11CF-9FA9-00AA006C42C4}';    type
  TSafeActiveFormFactory = class( TActiveFormFactory )
    procedure UpdateRegistry( Register: Boolean ); override;
  end;      TSafeActiveXControlFactory = class( TActiveXControlFactory )
    procedure UpdateRegistry( Register: Boolean ); override;
  end;    implementation    procedure AddSafetyKeys( const ClassID: TGUID );
var
  ClassKey: string;
begin  
  ClassKey := 'CLSID\'   GUIDToString( ClassID );
  CreateRegKey( ClassKey   '\Implemented Categories','','');
  CreateRegKey( ClassKey   '\Implemented Categories\' GUIDToString(
     CATID_SafeForScripting ),'','');
  CreateRegKey( ClassKey   '\Implemented Categories\' GUIDToString(
     CATID_SafeForInitializing ),'','');
end;    procedure RemoveSafetyKeys( const ClassID: TGUID );
var
  ClassKey: string;
begin      
  ClassKey := 'CLSID\'   GUIDToString( ClassID );
  DeleteRegKey( ClassKey   '\Implemented Categories\' GUIDToString(
      CATID_SafeForInitializing ));
  DeleteRegKey( ClassKey   '\Implemented Categories\' GUIDToString(
      CATID_SafeForScripting ));
  DeleteRegKey( ClassKey   '\Implemented Categories');
end;
      
{TSafeActiveFormFactory}
procedure TSafeActiveFormFactory.UpdateRegistry( Register: Boolean );
begin
  if Register then
  begin
    AddSafetyKeys( ClassID );
    inherited UpdateRegistry( Register );
  end
  else
  begin
    RemoveSafetyKeys( ClassID );
    inherited UpdateRegistry( Register );
  end;
end;    {TSafeActiveXControlFactory}
procedure TSafeActiveXControlFactory.UpdateRegistry( Register: Boolean );
begin
  if Register then
  begin
    AddSafetyKeys( ClassID );
    inherited UpdateRegistry( Register );
  end
  else
  begin
    RemoveSafetyKeys( ClassID );
    inherited UpdateRegistry( Register );
  end;
end;    end.    

引言: 想請問一下各位大大: 小弟在寫ActiveForm上面遇到ㄌ幾各問題 1.就是每一次瀏覽的時候都會出現下列的對話框.可是我已經把安全性調整到最低ㄌ.為什麼每次都還會出現.要怎麼讓他不出現ㄌ 2.在請教大大,如何在ActiveForm上用Thread.是跟AP程式一樣.直接include進來 使用.還是要用其他的辦法.

我測過frankiech分享的宣告,但好像也不行ㄋ,有辦法不用去設定安全性,就可以安裝的辦法嗎? 請大家幫幫忙,謝謝!!

Sorry !! 我比對了一下,你的警告訊息與我的Code要解決的警告訊息是不一樣! 其警告訊息如下 : "這個畫面上的ActiveX物件可能會造成傷害,要容許起始並供Script存取?" 我有查了一下你的問題,好像是中毒也會有這樣的訊息. 你可以在別台電腦上測試看看,是否依舊有同樣的問題.

國維兄: 我目前也遭遇到相同的問題,所以我也有大略的查此問題的相關資料... 目前我覺得可能發生的問題在於,ActiveX可能未獲得認證,所以會Pop出此Alter window,所以你可查查是否也是由於這個因素而導致你的問題(我也尚未解決).一起共勉之吧