請問，各位前輩 小弟使用Form1 LoakPackage載入一個Bpl 載入後，開啟該Bpl多個視窗 Form2, Form3...(使用Show)... Form1因為不知道Form2, Form3何時結束 因此，如果強行Unload Package，會同時關閉所有該Bpl尚未關閉的Form 請問，能夠寫出，偵測已被載入的BPL，其內的Form還有幾個尚未關閉嗎？ 如Form3尚未關閉，那麼我的Form1就停止Unload Pakcage 除非Form2, Form3都關閉了... 謝謝！

在Bpl中加Global变数 Count2, Count3: integer; 在 TForm2.Create 或 TForm2.FormCreate 中加 Inc(Count2); 在 TForm2.Destroy 或 TForm2.FormDestroy 中加 Dec(Count2); 对 TForm3 作类似修改. 在 TForm1 中, if (Count2 = 0) and (Count3 = 0) then UnloadPackage...... 如果你知道Form2, Form3的名字, 也可以用 if (not Application.FindComponent('Form2')) and (not Application.FindComponent('Form3')) then UnloadPackage...... _________________________ Programming is a passion 發表人 - yyu10 於 2005/03/07 04:38:06

可以判断Form在哪个bpl里

var
  AHandle:HModule;
begin
  AHandle:=LoadPackage(...    var
  M:TMemoryBasicInformation;
begin
  for i:=Screen.FormCount-1 downto 0 do
  begin
    VirtualQuery(Screen.Forms[i].ClassType,M,SizeOf(M));
    if (HModule(M.AllocationBase)=AHandle) then
      Screen.Forms[i].Close; 
  end;

久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听 發表人 - mustapha.wang 於 2005/03/07 09:50:44

------
江上何人初见月，江月何年初照人

感謝大家的回應，尤其是 mustapha.wang前輩 不過小弟發現一個問題 就是如果Form Close的時候沒有下CaFree mustapha.wangf前輩的方法會認定他還是存在 （因為小弟是，要確認都沒有存在「已開啟」的Form就把bpl給Free掉）

之所以用Screen.Forms[i].Close; 是为了保证你的Form的OnCloseQuery，OnClose等事件执行，比如有修改询问用户是否保存，如果cancel，就停下来了。如果没有这个需要，当然可以用Screen.Forms[i].Free;     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人