Cum se face instalatorul

Cum se face instalatorul

Una dintre componentele unui program scris profesionist este un instalator - un utilitar care vă permite să instalați programul pe disc. Cea mai ușoară modalitate este de a folosi un instalator gata, de exemplu, InstallShield, furnizat împreună cu Delphi, dar este mai interesant să creați un astfel de utilitar cu ajutorul instrumentelor Delphi și, în același timp, să discutați multe probleme practice. În această sarcină vom crea această utilitate.







Să ne uităm la condițiile inițiale. Utilitatea ar trebui să funcționeze în Windows, principalele sale funcții ar trebui să fie:

• Solicitați un director pentru a instala programul și componentele acestuia;

• Creați un grup în Manager de programe sau în Explorer;

• crearea de pictograme pentru lansarea programului;

• Salvați parametrii necesari în reportofon.

Aranjăm toate componentele vizuale utilizate în formă și, dacă este necesar, modificăm valoarea proprietății vizibile, adică le face vizibile sau invizibile. De asemenea, avem nevoie de două variabile globale: InstPath de tip String, care va afișa numele directorului pentru copierea fișierelor și Pasul tip Byte, în care va fi stocată etapa curentă a programului. Variabila Pas este necesară pentru ca atunci când programul este terminat prematur, este posibil să anulați toate acțiunile efectuate. Pentru a face acest lucru, creați următorul buton de manipulare a clicurilor:







procedura Tform1.Button2Click (expeditor: TObject);

Dacă (Sender AS Tbutton) .Caption = 'Anulare' Apoi

Dacă MessageDlg ("Doriți să întrerupeți instalarea?"), MtWarning,

MbOkCancel, 0) = mrOk

Necesitatea de a verifica valoarea proprietății Caption a componentei TButton este cauzată de faptul că în timpul programului vom schimba frecvent.

Afișăm ecranul inițial al programului de instalare și așteptăm ca tasta să fie apăsată.

Utilizatorul poate face clic pe Următorul și poate trece la primul pas sau dă clic pe Anulare și termină programul.

După introducerea numelui directorului (ca exercițiu, puteți selecta un director din lista componentelor disponibile - pentru aceasta se utilizează componentele din paleta de componente de pe pagina Sistem), continuăm copierea directă a fișierelor necesare. Deoarece această sarcină este foarte dependentă de aplicația particulară, vă sugerez următorul cod, pe care îl puteți adăuga la discreția dvs.:

Notă. Variabila From este o variabilă globală care indică sursa fișierelor de copiat

Rezultat: = FindFirst (de la + '*. *', FaArchive, SearchRec);

În timp ce Rezultat = 0







Articole similare

Pagina anterioară

Pagina următoare

Trimiteți-le prietenilor: