Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ���ܵ�Сʨ
Sat, 18 Apr 1998 00:00
�Ľ�VB3.0�İ�װ���������
Author: ���ܵ�Сʨ
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads