main.pas

一个用delphi写的安装程序. 涉及到的知识: 1.注册表的使用 2.资源文件的制作,使用 3.多线程中api播放wav 4.快捷方式

{*********************************************************
***                                                                     ***
***                        破天惊工作室                     ***
***  名称:安装程序                                          ***
***  日期:5.2.2004                                            ***
***  环境:Delphi7+WinXP                                 ***
***  作者:破天惊                                              ***
***  E-Mail:[e-mail]                           ***
***                                                                     ***
*********************************************************}

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls,registry,shellapi;         //操作注册表,需手动加入registry;

type
  Tfrmain = class(TForm)
    imgmain: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure showsec;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmain: Tfrmain;
  sprogram,spascal:boolean;              //两个可选文件是否安装;
  sdesktop,sstart,autorun,autostart:boolean;  //两种快捷方式是否创建,退出时是否自动运行软件,随机启动;
  setupath:string;                     //软件的安装路径;
  myreg:tregistry;                    //控制注册表时所用;

implementation
uses fir,sec;

{$R *.dfm}


{//利用新线程播放声音,由于没有加入wav资源所以此处不播放;
function soundplay(p:pointer):longint;stdcall;
begin
playsound('setupwave',hinstance,snd_resource);
end;}

procedure tfrmain.showsec;
var
  frmsec:tfrmsec;
begin
  frmsec:=tfrmsec.Create(self);
  frmsec.showmodal;
  frmsec.free;
  frmain.Close;
end;


procedure Tfrmain.FormCreate(Sender: TObject);
begin
  frmain.Left:=0;
  frmain.Top:=0;
  frmain.Width:=screen.Width;
  frmain.Height:=screen.Height;
  //createthread(nil,0,@soundplay,nil,0,threadid);             //调用线程;
end;

procedure Tfrmain.FormActivate(Sender: TObject);
begin
  frmfir.Showmodal;
end;

procedure Tfrmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmsec.free;
  if autostart then        //调用外部程序,uses shellapi;
    ShellExecute(Handle,'open',PChar(setupath+'神奇demo.exe'),nil,nil,SW_SHOW);
end;

end.