Article View: cn.bbs.comp.program
Article #1327�Ľ�VB3.0�İ�װ���������
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
Date: Sat, 18 Apr 1998 00:00
169 lines
13507 bytes
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
--
[m[1;37m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Technical Details
Message-ID:
<3O9QUC$tj7@bbs.nju.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow 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