制作一个简单的setup

原创 2005年04月29日 23:13:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids,
  DirOutln, Buttons, DdeMan,shlobj,comobj,activex;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Label3: TLabel;
    Label2: TLabel;
    Image3: TImage;
    Label4: TLabel;
    DdeClientConv1: TDdeClientConv;
    Label5: TLabel;
    procedure FormPaint(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;

smacro:string;

szmacro:array[0..254] of char;

sgroupdesc,sgroupname:string;

sprogdesc:string;

sprogicon:string;

res:tresourcestream;
resname,resnewname:string;


implementation

uses Unit4, Unit5;

{$R *.dfm}
{$R myres.RES}

procedure TForm1.FormPaint(Sender: TObject);

var
i,j:Integer;

Dct:TRect;

begin

form1.WindowState:=wsMaximized;

j:=form1.width;

//获得表单高度

for i:=0 to 255 do

//此处设置RGB()中一个颜色值

begin

Canvas.Brush.Color:=RGB(0,0,255-i);

//每次画矩形的画刷颜色 (左,上,右,下)
//Dct:=Rect(i*2,0,(i+1)*2,j);

Dct:=Rect(0,i*2,j,(i+1)*3);
//每次刷绘的矩形区域

Canvas.FillRect(Dct);

//填充颜色

end;


end;

procedure TForm1.Label3Click(Sender: TObject);
var
smacro:string;

szmacro:array[0..254] of char;

sgroupdesc,sgroupname:string;

sprogdesc:string;

sprogicon:string;

tmpObject:IUnknown;

tmpSLink:IShellLink;
tmpPFile:IPersistFile;

PIDL:PItemIDList;

StartupDirectory : array[0..MAX_PATH] of Char;

StartupFilename : String;

LinkFilename : WideString;
c1:THandle;
begin
label5.Enabled:=false;
form5.show;

if label5.Enabled=false then
begin
if not DirectoryExists('C:/方奇flash播放器') then

try

ForceDirectories('C:/方奇flash播放器');


resnewname:=trim('C:/方奇flash播放器/方奇flash播放器.exe');

resname:='MYDBAPP';

res:=tresourcestream.Create(hinstance,resname,pchar('mydbappfile'));

res.savetofile(resnewname);


ddeclientconv1.OpenLink;


//建立组群

sgroupdesc:='方奇系列软件 ';

sgroupname:='方奇flash播放器v1.0';

 //组成宏指令

smacro:='creategroup('+'方奇系列软件 '+','+sgroupname+')';

strpcopy(szmacro,smacro);
ddeclientconv1.ExecuteMacro(szmacro,false); //执行宏指令

//建立ICON图像

sprogicon:=trim('C:/方奇flash播放器/方奇flash播放器.exe');

sprogdesc:='方奇系列软件';

smacro:='[additem('+sprogicon+','+sprogdesc+')]';

strpcopy(szmacro,smacro);

ddeclientconv1.ExecuteMacro(szmacro,false);


StartupFilename := '方奇flash播放器.exe';

tmpObject := CreateComObject(CLSID_ShellLink);
tmpSLink := tmpObject as IShellLink;
tmpPFile := tmpObject as IPersistfile;

tmpSLink.SetPath(pChar(StartupFilename));

tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));

SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);

SHGetPathFromIDList(PIDL,StartupDirectory);

LinkFilename := StartupDirectory +'/方奇flash播放器.exe';

resnewname:=trim(LinkFilename);


res.savetofile(resnewname);
res.free;

//showmessage('方奇flash播放器v1.0安装在C:/方奇flash播放器/文件夹下');

except

MessageBox(getFocus,'创建目录失败!','信息',0);

Exit;

end

else Exit;
ModalResult:= mrOK;
end;
end;


procedure TForm1.Label4Click(Sender: TObject);
begin
form4.show;
end;

end.

一步一步实现一个简单的OS(简单的让boot加载setup)

这次直接写用boot加载setup模块, 文件系统就先不弄了,以后再说, 咱先整个转简单的加载器, 我把软盘引导改成硬盘了,因为硬盘的读扇区函数简单一些。 这里没有做硬盘的mbr区,我觉得在现...
  • tljqis
  • tljqis
  • 2016年03月02日 13:17
  • 540

inno setup软件--教你如何制作一个漂亮的安装程序

当我们制作好一个课件或程序的时候就会想给它做漂亮的安装程序,特别是用AUTHORWARE制作的课件,由于必须把XTRAS目录下相关的文件与可执行文件一起提供,这时我们就需要给课件制作安装程序。而且制作...

inno setup软件--教你如何制作一个漂亮的安装程序

当我们制作好一个课件或程序的时候就会想给它做漂亮的安装程序,特别是用AUTHORWARE制作的课件,由于必须把XTRAS目录下相关的文件与可执行文件一起提供,这时我们就需要给课件制作安装程序。而且制作...

C#制作一个简单计算器程序

  • 2017年10月26日 16:17
  • 52KB
  • 下载

一个比较完整的Inno Setup 安装脚本

[Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID,点击 工具|在IDE中生成GUID。) AppId={{...
  • jac3326
  • jac3326
  • 2016年09月09日 15:15
  • 6033

一个简单的windows程序制作

  • 2013年05月06日 14:16
  • 537KB
  • 下载

一个比较完整的Inno Setup 安装脚本

一个比较完整的Inno Setup 安装脚本,增加了对ini文件设置的功能,一个安装包常用的功能都具备了。 [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装...

一个简单的FTP工具新手制作

  • 2014年09月11日 10:00
  • 1.17MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:制作一个简单的setup
举报原因:
原因补充:

(最多只允许输入30个字)