Най-честият въпрос, който аз се задават - как да направите инсталация на програмата? И когато ме помоли да обясни подробностите, които трябва просто хубава програма, която ще копирате файлове от едно място на друго. Затова реших да напиша статия, която ще събере голяма част от това, което съм написал по-рано (и това е по VBStreets). ние ще се напише програма, която ще се инсталира файловете.
Веднага Извинявам се за известно объркване и непоследователност в историята, само че сега имам много малко време. така че тук е един пример.
Какво ми харесва идеята за написването свой собствен инсталатор, това е факт. не са ограничени и могат да се бутам тук много от своите функции и инсталаторът е написано като нормална програма.
Сега обясни идеята - това е необходимо да се напише програма, която може да се извлече, копие (добавите запис в system.ini и системния регистър и т.н.). Но всички тези неща. Основната идея - да се запазят всички файлове като двоичен ресурс, и след това да ги изтегли, когато е необходимо.
Редица програми форми може да бъде всичко, но аз не ги препоръчвам твърде много, за да не се дразни вече зло juzverej. За да се появява форма, когато е необходимо, ние ще ги коригира, както следва:
Когато натиснете Напред >> (или Следваща >>), може да име така, както искате.
frmNext.Show
frmNext.Height = Me.Height
frmNext.Width = Me.Width
frmNext.Move Me.Left, Me.Top
Оставете ме
Потребителят може да се движи на формата, така че другият трябва да се показва на същото място, където беше предишния, защото тя ще бъде много впечатляващо, като че ли е една форма :-).
В първия формата на кода, ние поставяме такова нещо (Form_Load):
Ако App.PrevInstance Тогава
край
MsgBox "вече работи с версия на инсталатора!" 16, "Настройка"
Крайна сметка, ако
Това е да се гарантира, че потребителят ще бъде много умен не уцели две приложения едновременно.
След това можете да се бутам в най-различна форма, но е препоръчително да се направи прозорец за избор на папка за настройка. След това имайте предвид следните неща: мястото Dir1, List1, Label1, LABEL2, command1. Напиши код.
Лично установено, Функция GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName Както стринга, lpSectorsPerCluster толкова дълго, lpBytesPerSector толкова дълго, lpNumberOfFreeClusters толкова дълго, lpTtoalNumberOfClusters толкова дълго), докато
Частни Под Drive1_Change ()
Пространството = GetDiskFreeSpace (Mid $ (Drive1.Drive, 1, 2), secpercl, bytespersec, numoffreecl, AllCl)
Дим л толкова дълго
L = 1024 ^ 2
р = bytespersec / л
FS = secpercl * р * numoffreecl
FS = Формат (FS, "0")
label2.Caption = "свободно място на диска" FS "MB"
Dir1.Path = Drive1.Drive
End Sub
Частни Под Dir1_Change ()
mDir = Dir1.Path
Label1.Caption = mDir "Тази променлива се забиват в модул като обществено InsDir като String, тя все още е полезно за нас.
End Sub
Частни Под Command1_Click ()
На Error GoTo ree_
ри = InputBox ( "Въведете името на директорията", "New Folder".)
Ако ри = "" Тогава Exit Sub
MKDIR Dir1.Path "" ри
Dir1.Refresh
Exit Sub
ree_:
MsgBox "Грешката, обаче." 16 "Настройка"
End Sub
Можете да добавите още нещо. Същото както за пример.
След това е ред на диалога, настройка. Има такова нещо:
Частни Под Form_Load () "се извлича от файла с ресурсите, и да се създаде пряк път.
ProgressBar1.Value = 20
Дим BinaryData () Както Байт
BinaryData = LoadResData (101, "Файлове")
ProgressBar1.Value = 80
Open mDir "Wininfo.exe" За Binary достъп за писане Както # 1
Сложете # 1, 1, BinaryData
Затвори # 1
ProgressBar1.Value = 98
lngresult = fCreateShellLink ( ". Desktop", "WinInfo", mDir "Wininfo.exe", "") "напуска работа Прозорецът на английски език.
ProgressBar1.Value = 100
Оставете ме
frmFinish.Show
End Sub
Всичко след това отнемане на последния диалог с поздравления.
Свързани статии