如何使用Delphi 6制作安装程序等等……

Question

卸载信息是写在注册表：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall下的，你可以参考别的软件的写法

Answer 1

注册表的使用会吧，代码我就不贴了，以下是快捷方式创建的:
uses shlobj,activex,comobj;
procedure TForm1.Button1Click(Sender: TObject);
var sl:ishelllink;
    pf:ipersistFile;
    lnkName:Widestring;
    app:string;
begin
 olecheck(cocreateInstance(clsid_shellLink,nil,Clsctx_inproc_server,iShellLink,sl));
  pf:=sl as IPersistFile;
  app:='e:\song.exe';
  OleCheck(sl.SetPath(pchar(app)));//设置快捷方式
  LnkName:='C:\WINDOWS\Start Menu\Programs\redbird.lnk';
  pf.Save(PWideChar(lnkName),true);
end;'以下此法可带参数unit Unit1;interfaceuses
  Windows,shlobj,activex,comobj, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  myobject:iunknown;
  myslink:ishelllink;
  mypfile:ipersistfile;
  filename:string;
begin
  myobject:=createcomobject(clsid_shelllink);
  myslink:=myobject as ishelllink;
  mypfile:=myobject as ipersistfile;
  filename:='C:\REDBIRD\SUPERWIN\SUPERWIN.EXE';
  with myslink do begin
    SetHotkey(vk_f12);
    setarguments('/UNINSTALL');
    setpath(pchar(filename));
    setworkingdirectory(pchar(extractfiledir(filename)));
  end;
   mypfile.Save('c:\windows\desktop\ok.lnk',false);
end;end.

Answer 2

ok，redbirdli(火鸟)，就快要达到我的目的了，请继续啊。
在制作安装程序的时候，肯定有大量的文件要解压到用户指定的目录中，再说说怎样制作需要安装的文件的压缩包和解压过程。
还有一个最关键的过程，就是涉及到修改IIS的设置[添加一个站点]，相关数据库的连接文件、运行库等要如何才能知道我在程序中用了Delphi的系统包，请大家赐教！！

Answer 3

压缩包的制作可以以用多种方式。
1、DELPHI的安装盘中有压缩与解压缩的PAS单元；
2、可以使用ARJ等压缩软件进行压缩，解压时使用相同的工具。只是在程序中调用即可。如果程序中使用了BDE，你需要加入BDE组件的安装包。

Answer 4

up,IIS呢，现在最关键的问题是iis的修改，清帮忙up啊，

Answer 5

IIS的修改可以使用ADSI，这是一个专门封装的对IIS及AD的接口，使用起来不会难的。

Answer 6

gz, virtualmfc(scale) 能给个例子吗？

Answer 7

installshield for delphi6界面是做的稍微花哨了一点.
在organize  your setup中设定安装信息.
其中的general information 比较重要了.在其中设定好您的databasedir和icon.
在specify application中选择file:先选择您自己程序所在的文件夹,然后把exe文件拖到目标机器文件夹区(destination computer installdir 内).新建一个文件夹,命名为databasedir,把您的数据库放到这个文件夹中.(拖动进去就行了.)
在objects modules中选择需要的包.比如basevcl等.
其它的设置不难了.最后是prepare for release
选择build your realease,一般选singleimage
在view菜单中打开output窗口,按一下f7,开始build 了.
下面两步很简单了,自己搞定吧.
关于installshield for d6 部分是我自己摸索的.如有不对,请大家指教.