Áruházláncok - Oké - Téma megtekintése - gyik létrehozása autorun Delphi
FAQ létrehozására indításkor Delphi.
1. Hogyan készítsünk saját program indult betöltése után a lemezt a meghajtóba?
Itt ICON.ICO - egy fájlt az ikonra. Ha szeretné használni egy ikon az alkalmazás, akkor meg kell adnia a pályázati dokumentáció. AUTORUN.EXE - ez egy startup alkalmazás indul helyezze a lemezt a CD-meghajtóba.
2. az én indításkor futtatni a telepítőt?
Ahhoz, hogy futtatni a programokat használni Win32API funkciójú ShellExecute. Ahhoz, hogy a programot meg kell csatlakoztatni ShellAPI modult.
Kód: Egész kiválasztása ShellExecute # 40; hwnd: HWND, lpOperation: LPCTSTR, lpFile: LPCTSTR, lpParameters: LPCTSTR, lpDirectory: LPCTSTR, nShowCmd: INT # 41;: HINSTANCE
Például futni notepad.exe, meg kell futtatni a következő kódot
Kód: Egész kiválasztása ShellExecute # 40; Handle, nulla, PChar # 40; 'notepad.exe' # 41;, nulla, nulla, SW_ShowNormal # 41 ;;
Ha a változó lpFile tartalmazni fogja a könyvtár elérési útját, akkor megnyílik a Windows Explorer a könyvtárba. Amint módon fel lehet használni mind abszolút, mind relatív.
3. Hogyan, hogy egy szép szöveges gombokat?
Gyönyörű szöveges gombokat lehet tenni TLabel alkatrészeket. Jó hatást lehet elérni, ha betette a betűtípus Comic Sans MS. Betűméret is el lehet készíteni nagyobb és világosabb szín, hogy - kék, piros.
Esemény OnClick hívja a ShellExecute () függvény a kívánt paraméterekkel
Kód: Az összes eljárás TForm1.Label1Click # 40; Sender: TObject # 41 ;;
kezdődik
ShellExecute # 40; Fogantyú, nulla, '.. \ progi \ setup.exe', nulla, nulla, SW_SHOWNORMAL # 41 ;;
végén;
Esemény onMouseMove változtatni a színét egy új
Kód: Az összes eljárás TForm1.Label1MouseMove # 40; Sender: TObject; Shift: TShiftState; X,
Y: Egész # 41 ;;
kezdődik
Címke 1.Font.Color: = clLime;
végén;
A OnLeave esemény változtatni a színét vissza
Kód: Az összes eljárás TForm1. Label 1MouseLeave # 40; Sender: TObject # 41 ;;
kezdődik
Címke 1.Font.Color: = clYellow;
végén;
Amikor az egérrel a Label változtatni a színét a kék, és a betűtípust, hogy eltúlzott.
Kód: Az összes eljárás TForm1.Label1MouseMove # 40; Sender: TObject; Shift: TShiftState; X,
Y: Egész # 41 ;;
kezdődik
Label1.Font.Color: = clBlue;
Label.Font.Style:=#91;fsUnderline#93 ;;
végén;
Ha a kurzor kívül Label, majd állítsa vissza a színét és betűtípusát.
Kód: Az összes eljárás TForm1.Label1MouseLeave # 40; Sender: TObject # 41 ;;
kezdődik
Label1.Font.Color: = clBlack;
Label.Font.Style:=#91;#93 ;;
végén;
5. Hogyan, hogy egy szép design egy startup?
A Delphi, egy csodálatos összetevő TImage. Most megmutatjuk, hogyan kell használni a céljainknak.
Tegyük fel, hogy van egy kép, amit szeretnék használni, hogy díszítse a programot. Helyezni a tiszta formában a TImage komponens, az Object Inspector változtasson Align tulajdonság alClient. Component kifeszített formában. Most meg kell tölteni egy képet. Ehhez kattintson duplán az Object Inspector tulajdon kép. Ez megnyit egy ablakot, amelyben kattintással betöltése ... betölteni a képet a komponenst és kattintson az OK gombra.
Kiváló! volt egy kép. De egy kép nem teljesen látható, vagy látható formában üres helyek. Ez nem jó. A probléma megoldása érdekében állítsa a Stretch tulajdonság igaz. Csodálatos leveleket! Ha nem tetszik, amit látsz, játszani tulajdonságait központ és arányos. Csak egy figyelmeztetés. Ne érintse transperent tulajdon. Előfordulhat, jelentős fék grafika.
6. Hogyan lehet eltávolítani a fejléc az alakja és mérete miatt ez fix?
Annak érdekében, hogy mérete formában nem lehet változtatni, akkor állítsa a BorderStyle ingatlan bsDialog, bsNone vagy bsSingle. Ha ez az érték inkább kívánatos bsSingle BorderIcons ingatlan meghatározott [].
Ha már ellenőrizte az összes BorderStyle mód, észre fogod venni, hogy ha ez egyenlő bsNone, a fejléc megszűnik. Aztán, ha használja az 5. kérdésre adott válaszok, akkor kap elég szép eredmény.
7. Ha nincs forma fejlécet akkor húzza az egeret?
Például, akkor húzza ki a kérdés a Image1 5. A privát kell hozzá három változót
Kód: Az összes privát
OldX, OldY: integer;
Mozgó: Boolean;
Ezután Image1 kell kezelni három esemény.
onMouseDown:
Kód: Egész kiválasztása esetén = gombot mbLeft ezután kezdődik // Ha a bal gombot, az
mozgó: = true; // Állapot húzás
OldX: = X; // Emlékezz X
OldY: = Y; // Emlékezz Y
végén;
onMouseMove:
Kód: Egész kiválasztása esetén mozgó ezután kezdődik // Ha képesek drag and drop, majd
Bal: = Bal + X-OldX; // Mozgás X
Top: = Top + Y-OldY; // áthelyezése az Y
végén;
onmouseup:
Kód: Egész kiválasztása esetén = gombot mbLeft majd áttérnek: = false; // ha a bal gombot, az
// nem húzza
Ugyanazokat a funkciókat lehet írni bármilyen más komponens, amely kívánt húzza.
8. Ha a lemezen sok program, amit lehet futtatni őket a listáról?
A lényege egy ilyen példa. Van ListBox1 típusú TListBox. Ez kalapált, ahogy a program. Ha duplán kattint a kívánt programot fut. Ez elég egyszerű.
A ondblclick kezelőjét ListBox1 ezt a kódot írod.
Kód: Az összes eljárás TForm1.ListBox1DblClick # 40; Sender: TObject # 41 ;;
var
Név: String;
kezdődik
Név: = ListBox1.Items.Strings # 91; ListBox1.ItemIndex # 93 ;;
ShellExecute # 40; Fogantyú, 'nyitott', PChar # 40; Név # 41;, nulla, nulla, SW_SHOWNORMAL # 41 ;;
végén;
Ha azt szeretnénk, hogy megjelenjen a neve listbokse programok helyett felé, akkor dobja a forma ListBox2, amelyben meg kell, hogy töltse ki a címet, illetve utak ListBox1. Ezután ListBox1.Visible tulajdonság értéke hamis. ListBox1DblClick felvezető már nincs szükség. Most akkor írj egy kezelőt az ondblclick ListBox2 formájában.
Kód: Az összes eljárás TForm1.ListBox2DblClick # 40; Sender: TObject # 41 ;;
var
Név: String;
kezdődik
Név: = ListBox1.Items.Strings # 91; ListBox2.ItemIndex # 93 ;;
ShellExecute # 40; Fogantyú, 'nyitott', PChar # 40; Név # 41;, nulla, nulla, SW_SHOWNORMAL # 41 ;;
végén;
9. Hogyan zenét?
Zene lejátszása legkényelmesebb alkatrész TMediaPlayer.
Kinema alakú példány TMediaPlayer1. A témához ingatlan közvetlenül beépíthető hamis. Ugyanakkor az űrlapon, és CheckBox1. Ő feliratozni ingatlan nevezni a „Play zene.” Mondjuk, meg kell játszani a fájlt 1.mp3 található a zene mappát a lemezen.
Aztán OnCreate kezelőjét formájában, írd be az alábbi kódot
Kód: Egész kiválasztása próbálja
MediaPlayer1.FileName: =; '\ zene \ 1.mp3.
MediaPlayer1.Open;
MediaPlayer1.Play;
CheckBox1.Checked: = true;
kivéve
CheckBox1.Enabled: = false;
CheckBox1.Visible: = false;
CheckBox1.Checked: = false;
végén;
Aztán nyissa meg a fájlt, és kapcsolja be a játék. Ebben az esetben, ha a fájl nem létezik, vagy nincs telepítve kodekek elrejtjük CheckBox1 és semmi nem fog játszani.
Ha azonban a fájl megnyitása sikerült, és játszani kezdett, a felhasználónak meg kell adni a lehetőséget, hogy kapcsolja ki, ha szükséges. Ehhez mi írjuk a OnClick kezelőjét CheckBox1.
Kód: Az összes eljárás TForm1.CheckBox1Click # 40; Sender: TObject # 41 ;;
kezdődik
ha CheckBox1.Checked majd
MediaPlayer1.Play
más
MediaPlayer1.Stop;
végén;
Az idő korlátozott, így ne pazaroljuk el valaki másnak az életét.
madrat írta (a): A program maga.
UPX nem törölték.
Nos, igen. Szeretem őt több, bár ugyanazon a tömörítés. Valószínűleg.
Üdvözlettel, Vjacseszlav.
Lite írta (a): bár a tömörítés ugyanaz. Valószínűleg.
S? Mivel ez ugyanaz a dolog. Összehasonlításképpen présel egy és ugyanazt a fájlt és ASPACK'om UPX'om - Győződjön meg arról, hogy ez nem ugyanaz a dolog.
E-mail / Jabber: andyeth0.spb.ru / andykorona-auto.com
Találtunk semmi vitatkozni. Jobb lenne, ha írásbeli észrevételeit.
Érdekes, hogy beszélni tömörítő szoftver, így hozzon létre egy külön téma. Aztán néhány ember fog menni, és látni egyszerre, tudja, hogy egy ilyen program, mint UPX és aspack. És az a tény, hogy ezt a kérdést tárgyalja, hogy vryatli emlékszem. Ismét kiderült, a két férfi azt mondta hülyeség, és ki megyünk.
2Fatal Hiba: Ez a tárgya tömörítés, hogy menjen egy külön téma?
Az idő korlátozott, így ne pazaroljuk el valaki másnak az életét.