卸载信息是写在注册表:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall下的,你可以参考别的软件的写法
解决方案 »
- 如何用fastreport做以下格式的报表
- 这回有分了??问一个简单的问题!!
- InstallShield Developer8.0
- 急求原代码(读二制文件)
- 请问如何动态获取程序自身路径
- 在北京低价转让5本DELPHI编程的书,也许你用得着吧:)
- 在线亟待,如何使dbgrid被选定的一行便蓝色
- interbase在哪里啊???????
- WEB SERVICES客户端调用的问题.运行时出错Access Violation at address 004037DB in module 'PWSDemo1.exe'.
- QRChart在生成统计图表的问题
- 简单问题100分!(关于输入法问题)
- delphi程序出错
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.
在制作安装程序的时候,肯定有大量的文件要解压到用户指定的目录中,再说说怎样制作需要安装的文件的压缩包和解压过程。
还有一个最关键的过程,就是涉及到修改IIS的设置[添加一个站点],相关数据库的连接文件、运行库等要如何才能知道我在程序中用了Delphi的系统包,请大家赐教!!
1、DELPHI的安装盘中有压缩与解压缩的PAS单元;
2、可以使用ARJ等压缩软件进行压缩,解压时使用相同的工具。只是在程序中调用即可。如果程序中使用了BDE,你需要加入BDE组件的安装包。
在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 部分是我自己摸索的.如有不对,请大家指教.