全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:888
推到 Plurk!
推到 Facebook!

【问题】 Delphi 有Deployment and Package wizard吗

尚未結案
viery
一般會員


發表:19
回覆:11
積分:6
註冊:2002-09-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-17 15:37:34 IP:218.81.xxx.xxx 未訂閱
Delphi 有Deployment and Package wizard吗? 就象VB里面,为了检测出程序用到的dll, 以便制作安装程序的时候一起打包就去。但是我在delphi里面并没有找到这样的工具。 因为程序在我机器上正常,到客户机器上就不行了,客户的OS和我开发的机器不一样。因此我 想应该把一些系统文件打包进去。不知道如何检测,用到了什么系统的dll?
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-17 16:16:10 IP:147.8.xxx.xxx 未訂閱
Installshield Express.... search 
viery
一般會員


發表:19
回覆:11
積分:6
註冊:2002-09-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-11-25 12:37:59 IP:218.81.xxx.xxx 未訂閱
如何search呢?
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-11-25 12:46:19 IP:147.8.xxx.xxx 未訂閱
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-11-25 14:28:26 IP:218.1.xxx.xxx 未訂閱
可以用EnumModules函数来列出整个进程的dll/bpl
function EnumModule_Proc(HInstance: Longint; Data: Pointer): Boolean;
var
  ModuleFileName:array[1..255] of Char;
begin
  Result:=true;
  FillChar(ModuleFileName,255,#0);
  GetModuleFileName(HInstance,@ModuleFileName,255);
  if AnsiCompareText(ExtractFileExt(StrPas(@ModuleFileName)),'.bpl')=0 then
  begin
    TStrings(Data).Add(StrPas(@ModuleFileName));
  end;
end;    AList:=TStringList.Create;
EnumModules(EnumModule_Proc,AList);
久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
系統時間:2024-07-07 7:16:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!