🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #1327

�Ľ�VB3.0�İ�װ���������

#1327
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
169 lines
13507 bytes
 ����������忪������֮��,Ϊʹ�û��ܹ���ȫ�������ʹ�����,
����һ�����ۡ��ɿ��İ�װ������ʮ����Ҫ�ġ�Ŀǰ�г������е���
��PcInstall���,��������װ���������Ĺ���,��Ҫ�����Ƚϸ���
�İ�װ����,��Ҫ��һ��ʱ�����о�������ֲᡣ���ʹ��VB3.0��Ϊ
�����������,��������ר������������װ�����SetupWizard,Ҳ��
�Ժܿ��������򵥵İ�װ����,�����һ���VB3.0����Ա����������
Ϥ������SetupWizard�������İ�װ�������Ƚϼ򵥶��Ҳ�̫����,
����ʵ������һ��İ�װ����,����Ҫ��ϸߵ������˵,�Ե��е㺮
�ᡣ����SetupWizard�������ṩ�˰�װ�����Դ����,���ͨ�����
�Ľ�,���ǿ���������ȫ����Ŀ�İ�װ���򡣱������ڹ�������Ҫ,��
ϸ������SetupWizard�Ľṹ�ͻ���,���������һЩ�Ľ�

    SetupWizard����

    1.SetupWizard�Ľṹ
    ��VB\setupKit\Ŀ¼��,����������Ŀ¼,\kitFiles��\setup1��
    ����SETUP�Ŀ��ļ������\ketFilesĿ¼��,��������Ҫ����:
    Ver.dll��������װ������ȷ�������ļ��汾����Ľӿں�
��;
    setupkit.dll��������ȷ����װ����ռ�Ͳ�ִ��ļ��ȹ���
�Ľӿں���;
    Setuplist�����������а�װ�����ʼ��ʱ��Ҫչ�������ѹ
���ļ�,setup1.ex_,se tupKit.DL_,VBRUN300.DL_,����setup1.ex_
��VB��ɵİ�װ����,VBRUN300.DL_������VB��ִ�г����֧���ļ�
��
    ��\setup1��,�����ɰ�װ�����Դ�ļ�:
    setup1.mak��������װ����Ĺ����ļ�;
    setup1.frm��������װ����������塣���ư�װ����;
    message.frm������������ʾ��װ�����һЩ��Ϣ;
    path.frm���������밲װ·���Ĵ���;
    status.frm��������ʾ��װ��̵Ĵ���;
    setup1.glb������������װ������������Ͷ���͵��ú���;
    setup1.bas��������װ����������ĺ���͹�̴��롣
    2.SetupWizard�Ĺ���ԭ��
    SetupWizard�Ĺ���ԭ����Щ������Word�е�ģ��,����setup1.m
akΪģ��,���һ��se tup1.exe,���ڲ�ͬ��Ӧ�ó���,��ֻ���Զ���
�����������,��Ҫ�������ļ���,������Ľ������ݲ���,���Ϊ��
������ͨ�õİ�װ�����ṩ�˷��㡣���Set-up1.exe��,�Ȱ���ѹ��
��setup1.ex_,����SetupWizard�����ڲ���(���ɼ�)���setup.exe
��setup1.lst�ļ�,set up.exe�������ǰ�װʱ�������е��ļ�,��
��������ʵ�ְ�װ��̵ij���������ɵ��ļ�,��û���˳�SetupWi
zard֮ǰ,��������VB\setupkit\setupwiz�����ʱĿ¼��,���ǿ���
�л����ļ���������,�鿴��Щ�ļ������˳�SetupWizard��,��Ŀ¼
��ɾ��
    ����װ����setup.exeʱ,setup.exe���Ȱ���setup.lst���г���
�ļ�setup1.ex_,setu pKit.DL_,VBRUN300.DL_���ν�ѹ����������
Ӧ��Ŀ¼,Ȼ�����setupKit.DLL�⺯����в鿴Ӳ�̿ռ�ȳ�ʼ��
����,���ɹ�,����VBRUN300.DLL��֧��������setup1.exe�ļ�,��
������İ�װ������

    SetupWizard�ĸĽ�
    ���Ͽ�֪,����ֻҪ�Ķ�VB\setupKit\setup1Ŀ¼��setup1.mak
�е��ļ�,�Ϳ��Դ��������Լ�����SETUPģ��,�Ժ���SetupWizard
��ɵİ�װ����,�������˸÷�񡣱������ǿ��԰ѳ�����ȫ��Ӣ��
��ʾ���������,�Ժ�������ɵİ�װ�������Ͷ�������,���ÿ
�ζ���ͬ��Ĺ���������һ��ĸĽ�,�ɲ���setup1.frm��Դ�����
���޸�(˳��˵һ��,setu p1.bas��������ຯ�����̷��,
ֵ�����ǽ���ѧϰ)������Setup1.mak��֪,�ó���ֻ�õ�VB3.0��
����һЩ����,��һЩ�ܹ�Ϊ���dz�����ɫ�Ŀؼ���Threed.VBX,
Pi cClip.VBXȴû�õ�,Ϊʹ��װ�����ܹ�����Ư������ά���,����
Ҫ��ģ�����Setup.mak������Threed.VBX,������SetupWizard�ı�
׼�в������������Ŀ���,�����鵽setup.ma k����������VBX��
��ʱ,�������ɰ�װ����ĵ��岽�޷�������ȥ,�����������,��
�߲���һ��"͵������"�ķ���,�ɹ����ڰ�װ������ʵ������ά��װ
���档��������䲽��: 
    1.����VB3.0,����setup1.mak�ļ�,����File|Add File�˵�,��
��Windows\system\Thr eed.VBX,��ʱ������(TOOL BOX)����������
�������ά���ԵĹ��ߡ�
    2.��Setupl.frm��������������������,���������Setup1.
frm������һ����ά���Pannel3D1,���������������Ч��ı��
������DrawBackground����,ʹԭ����ʾ�ڴ����ϵı�������ά���
����ʾ,���򸽺�ͬʱҲ���Ըı��������ϵ�����ͱ�����ɫ,ʹ
�������۲�������Ч��Э����

    3.ȫ���ļ����ı���ʽ�����˳������ı��༭���в鿴setup1.m
ak,�ɷ������ж���һ��,C:\windows\system\Threed.VBX,(����Wind
ows��װ��C��)��ɾ����һ��,����SetupWiz ard�޷����С�

    4.����SetupWizard,����Ӧ�ó����mak�ļ�,���е����岽ʱ,
��"NEXT"��ť,��ʱҪ����ѹ���ļ������Setup.exe��Setup1.exe��
����,�����setup1.exeʱ,���о���,��Ϊ��ʱsetup1.mak�в���T
hreed.VBX,�������ȴҪ�õ�,�����侯��,����ִ����ȥ����ʱ���
��setup1.exe��û���õ�,����ֻ������SetupWizardѹ���ļ������
Setup.exe��
    5.�������沽��֮��,SetupWizard���ļ���׼������,��������V
B\setupKit\kitFiles \setWiard�����ʱĿ¼��,�л����ļ�������
���Կ������Ŀ¼����ʱ���鿴setup1.ls t,�ͻᷢ�����ж���һ
���ļ�three3d.VBX,�����ʼ��ʱ�ͻ��Ȱ����롣����ʾ����1��
��ʱ,ѡ��"ȡ��"��ť,��Ϊ��ʱ��Setup1.exe����������������Ҫ��
,����ô�ʱ��ɵİ�װ������а�װ,����治������ά������

    6.�������������Setup1.exe��,�л����ı��༭����(ע���
ʱ��Ҫ�˳�Set-upWiz ard,�����ǰ��������),�򿪸ղű༭���se
tup1.mak,����C:\windows\system\threed.V BX��һ��,�����˳�,��
�ص�SetupWizard�¡�

    7.�ٰ�"NEXT"��ť,��ʱ����Ӧ�ó����ļ�����ѹ����,����setu
pe.exeҲ�����,ֻ����SetupWizard�������setup1.exe,������ѹ
����setup1.ex_�ļ����������Threed.VBX֧������ɵ����������
ά����������װ�ļ����Ժ�����������װ����ʱ,����ÿ�ζ��Ķ�s
etup1.frm�Ĵ���,�Ϳ������������ء�����ͳһ������İ�װ����
������ڽ�רҵ��������Ƶ�λ�������˵,�Ǻ�������ġ�
    ��������VB3.0֧�ֵĿؼ�,�ɲ���ͬ��ķ������?
    һ���רҵ�İ�װ�����ڰ�װ�����,���Զ�����һ���ı��ļ�,
���ļ��а������������ʱ��Ҫע�������,�Լ��ڷ������ǰ����
�������¸Ľ���Ϣ��SetupWizard��û���ṩ��һ����,��ֻҪ��setu
p1.frm�Ĵ��������Ľ�Ϳ�ʵ�֡�����2��,�ڰ�װ������ɺ�,����W
 indowsĿ¼�µļ��±�(notePad.exe),����setup.txt(���ֿ���
����)�ļ�,��Ҫע�����,���ı��ļ���SetupWizard���е����岽ʱ
,һ��Ҫ���뵽ѹ�������б��С�
    ����,SetupWizard����һ��Сȱ��,������������ʹ�������
��,�����а�װ����ʱ, ��ֻ����ʾ�û���AUTOEXEC.BAT�ļ��м���s
hare.exe�ļ�,��û���Զ��޸�,��һ���̫����΢��������û�
,������ɲ��㡣���߸����setup1.bas��AddShareIfNeeded����,��
����������漸��,�ͺܺõؽ�������⡣
    Open "C:\AUTOEXEC.BAT"For Append As fh%
      Print #fh%,SharePath$+"SHARE.EXE /L:500"
      MsgBox "�Ѹ��AUTOEXEC.BAT,��װ�����Ҫ�������������
��"
    Close#fh%
    ���Ŷ�setup1Դ���򲻶�����,��װģ���ϵĹ���ҲԽ��Խ��,��
�����İ�װ����Ҳ�͸������,רҵ����
    ��������:

    1.������ά�������ʾ����
    Sub DrawBackground()
        setup1.ForeColor=RGB(0,0,255)������������ı���ɫ
        Pannel3dl.move 0,0 ������άģ���ƶ�����װ���������
�϶�
        Pannel3dl.caption=APPNAME+"��ȫ" ������ά�����д��
װ������
    End Sub

    2.�޸�AUTOEXEC.bat�ļ�,��װ������������±�
    ��װ��������س�����setup1.frm��Form_Load��
    form_Load()
    ����
    ����ɳ�����ͳ�����ͼ��
    CreateProgManGroup setup1,"LOANSHEET","LOAN.GRP"
    CreateProgManItem setup1,destPath$+"LOAN.EXE","LOANSHEET
"����������
    CreateProgManItem setup1,destPath$+"LOAN.hlp","LOANHELP"
�����������,SetupW izard�Զ����Ӧ�ó����mak�ļ�������
*.hlp�ļ���ɡ�
    ���޸�AUTOEXEC.bat�ļ�
    If fDataAccess%Or fOLE2% And Not FileExists(winSysDir$+"
\"+"OLE2.DLL")Then
    ret$=Space$(255)
    X%=GetPrivateProfileString("BOOT","NETWORK.DRV","",ret$,
Len(ret$),"SYSTEM.I NI")
    If X% Then ret$=Left(ret$,X%)
    If InStr(1,UCase$(ret$),"WFWNET.DRV")=0 Then
      AddShareIfNeeded winSysDir$,"SHARE.EXE"  ������SHARE.E
XE
    End If
    End If
    MsgBox APPNAME+"��װ����!",48,dialogCaption$
    If FileExists(winDir$+"\"+"notePad.exe")Then ����ʾSETUP
.TXT
     X%=Shell(winDir$+"notePad.exe"+""+destPath$+"setup.txt"
,1)
    End If
    Exit sub
    ���ԡ�
    End sub

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
Technical Details
Message-ID: <3O9QUC$tj7@bbs.nju.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,3eada7b9d0a97d64,start
X-Google-Attributes: gidfc86e,public
From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ)
Subject: �Ľ�VB3.0�İ�װ���������
Date: 1998/04/18
Message-ID: <3O9QUC$tj7@bbs.nju.edu.cn>
X-Deja-AN: 345302914
X-Filename: Programming/M.892870572.A
Organization: nju_bbs
Newsgroups: cn.bbs.comp.program