我在主程式調用dll然后生成dll里的表單﹐請問怎樣才能獲得產生dll表單的個數﹐還有怎樣才能在主程式中將產生的dll表單全部關閉

lvluyang 你好: 以下的code可以搜尋出現在目錄的所有檔案因為紅色部分用*.* 改成*.dll就只找dll檔拉 指定搜尋目錄要用ChDir('路徑') ;    procedure TForm1.MakeTree; var  Sr : TSearchRec;      Err : integer;      FilePath : string; Begin  Err:=FindFirst('*.*',$37,Sr) ; While (Err = 0) do begin if Sr.Name[1]<>'.' then begin FilePath:=ExpandFileName(Sr.Name); if (Sr.Attr and faDirectory)=0 then begin ShowMessage(Sr.Name); end; end; { Begin Recursion } If ((Sr.Attr and faDirectory)<>0)AND(Sr.Name[1] <> '.') then begin ChDir(Sr.Name) ; MakeTree ; ChDir('..') ; end ; { End Recursion } Err:=FindNext(Sr) ; end ; End;

------
======================
昏睡~
不昏睡~
不由昏睡~

各位高手請看看圖﹐我點擊主窗體的TREEVIEW子節點會產生會調用dll模塊產生dll窗體﹐雖然現在只有一個節點就調用一個dll﹐但以后會有更多的節點也會產生更多的dll窗體﹐請問我在主窗體上做“登出用戶”時應該先關掉正在運行的dll窗體才對。請問我怎樣才能得知當前關況有多窗體已經生成以供提醒用戶登出前應該關閉除主窗體外的其它窗體。 我有用過findwindow它可以實現是否已經有指定類型窗體是生成﹐但無法知道產生窗dll體的個數

lvluyang 你好: 我建議你開啟dll的form用ShowModal的方式, 這樣就可以避免使用者還沒關閉dll的form就關掉主form

------
======================
昏睡~
不昏睡~
不由昏睡~