Hogyan készítsünk telepítő
Hogyan készítsünk telepítő
Ennek egyik eleme a programnak van írva egy szakképzett szerelő - egy segédprogram, amely lehetővé teszi, hogy a szoftver telepítéséhez a lemezen. A legegyszerűbb módja, - használja a telepítő kész, például az InstallShield, mellékelt Delphi, de sokkal érdekesebb, hogy hozzon létre egy segédprogram segítségével Delphi, és ugyanabban az időben, hogy megvitassák számos gyakorlati kérdés. Ebben a feladatban fogunk foglalkozni létrehozásával egy ilyen típus.
Nézzük meg a kezdeti feltételeket. A segédprogram működik Windows, a fő funkciója az alábbiakból áll:
• a katalógusban kérelmet kell telepíteni a programot és annak összetevőit;
• hozzon létre egy csoportot a Program Manager vagy Explorer;
• hozzon létre egy ikon elindítani a programot;
• megőrzése a szükséges paramétereket a DVR.
Rendezzük használt összes összetevő vizuális formában, és szükség szerint fog változni az értéke a tulajdonságok Látható, azaz tegyék látható vagy láthatatlan. Továbbá, meg kell két globális változót: INSTPATH String, amely szerepel a könyvtár nevét a fájlok másolása, és a Step típusú Byte, amely tárolja az aktuális lépésben a program. Változó lépés szükséges ahhoz, hogy ha egy korai leállítása A program lehetővé vált, hogy megszünteti a tevékenységét. Ehhez hozza létre a következő felvezető megnyomásával:
eljárás Tform1.Button2Click (Sender: TObject);
Ha (Sender AS TButton) .Caption = 'Mégsem' Akkor
Ha MessageDlg ( „Szeretnéd, hogy megszakítja a telepítést?”), MtWarning,
MbOkCancel, 0) = mrOk
Annak szükségessége, hogy ellenőrizze az értéket az ingatlanok Caption TButton alkatrész okozott az a tény, hogy a program során, akkor gyakran változtatni.
A kezdőképernyő a mi telepítő és várjon egy gombnyomás.
A felhasználó kattintson a Tovább gombra, és lépjen az első lépés, vagy a Mégse gombra, és töltse ki a program.
Miután a könyvtár neve szerepel (mint egy gyakorlatot, akkor válasszon egy könyvtárat a rendelkezésre álló - az erre a célra, a komponensek található a komponens palettán a System oldal), közvetlenül folytassa másolni a szükséges fájlokat. Mivel ez a probléma nagymértékben függ az adott alkalmazás, I-hez nyújtunk az alábbi kódot, amelyet be lehet fejezni tetszése:
Megjegyzés. Változtatható - ez egy globális változó, a forrás megjelölésével fájlok másolásához
Eredmény: = FindFirst (tól + '* *.', FaArchive, SearchRec);
Míg Eredmény = 0 do