请问如何用Delphi6制作自己的安装程序制作程序？ (200分)

各位大虾：
请问如何用Delphi6制作自己的安装程序制作程序？
要是有源代码的话！我在这里就谢谢。Email:alinq@263.net

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1019688

为什么要用delphi自己做?installshield express不能满足你的需要吗?]

to budianermayi
我只是想了解它的原理.

卸载程序就是:
procedure TForm1.Button1Click(Sender: TObject);
var sysdir:array[0..255]of char;
del:tshfileopstruct;
frombuf:array[0..128] of char;
begin
getwindowsdirectory(sysdir,255);
fillchar(frombuf,sizeof(frombuf),0);
strpcopy(frombuf,pchar(sysdir+'/你的主文件'));
with deldo
begin
wnd:=handle;
wfunc:=fo_delete;
pfrom:=@frombuf;
pto:=nil;
fflags:=fof_noconfirmation or fof_noerrorui;
lpszprogresstitle:='正在卸载！';
end;

if shfileoperation(del)=0 then
showmessage('卸载成功！')
else
showmessage('现在不用卸载！');
end;

谢谢D影子D！
我主要是想了解如何实现编译和如何打包.

我曾有过同样的兴趣，后来我找到了现成的Delphi所编写的安装软件Inno Setup，
其源码是公开的（在Delphi5下能顺利运行，只是所需控件较多），
网址：www.innosetup.com，国内有不少汉化的，相信你会满意的。

多人接受答案了。