|
|
Gyorsindítás ikonok mentése SQL adatbázisba
|
|
Példaprogram letöltése
5942 bájt
|
A Windows gyorsindítás ikonjai nagyon gyors és kényelmes programindítást tesznek lehetővé. Amikor azonban újratelepítjük a Windows-t, úgy hogy a teljes Windows könyvtárat töröljük, beállított ikonjaink eltűnnek. Ebben a példában készítünk egy olyan programot, amely ikonjainkat elmenti egy SQL adatbázisba, valamint lehetővé teszi azok visszaállítását is.
A mellékelt példaprogram futtatása előtt futtassa le a Run_script.cmd állományt, majd a Form1.pas-ban lévő ADOConnection1 objektum ConnectionString értékét módosítsa úgy, hogy a QuickLaunch adatbázis elérhetővé váljon.
A gyorsindítás ikonokat az alábbi mappában találjuk.
c:\Documents and Settings\felhasználó_név\Application Data\Microsoft\Internet Explorer\Quick Launch
A felhasználó_név-et helyettesítse az adott felhasználó nevével.
Az aktuálisan bejelentkezett felhasználó nevét a GetUserNameExA függvény segítségével tudhatjuk meg, amely a secur32.dll-ben található. A DLL a Windows System32 könyvtárában található.
function GetUserNameEx(NameType: integer; lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
external 'secur32.dll' name 'GetUserNameExA';
Amikor a Quick Launch könyvtár tartalmát el akarjuk menteni, nincs más dolgunk, mint megkeresni az összes állományt a mappában, majd az adatbázisban eltárolni az állomány elérési útját és tartalmát.
A kereséshez a FindFirst – FindNext párost használhatjuk.
if FindFirst(Edit1.Text+'*.*',faAnyFile,F)=0 then begin
Az állomány elérési útját a FileName, varchar típusú mezőben tároljuk el. Az állomány tartalmának tárolására Text típusú mezőt használunk melynek neve, Data.
A Text típusú mezőt a Delphi TMemoField-ként kezeli. Használata kényelmes, hiszen az osztály rendelkezik a LoadFromFile és SaveToFile metódusokkal.
(FieldByName('Data') as TMemoField).LoadFromFile(FileName);
Az ikonok visszaállításához eltároltuk a szükséges elérési utat és állománynevet. Az ikonokat azonban, gyakorlatilag bármilyen könyvtárba elmenthetjük.
(FieldByName('Data') as TMemoField).SaveToFile(Edit2.Text+ExtractFileName(FileName));
|
Cikksorozat
| 2591 | Windows | Tippek és trükkök - RAS - Modem csengetési szám állítása | 1. rész |
| 2622 | Windows | Tippek és trükkök - Program futtatása más felhasználóként | 2. rész |
| 2640 | Windows | A Windows ikonméretének megváltoztatása és Windows 2000 Asztaltémák | 3. rész |
| 2657 | Windows | Tippek és trükkök - Internet Explorer | 4. rész |
| 2667 | Windows | Tippek és trükkök | 5. rész |
| 2684 | Windows | Alapértelmezések állítása, telepítési fájlok helye, intéző nézetek | 6. rész |
| 2696 | Windows | Biztonsági trükkök | 7. rész |
| 2702 | Windows | Windows XP trükkök | 8. rész |
| 2729 | Windows | Windows 2000 és XP tippek, trükkök | 9. rész |
| 2757 | Windows | Registry trükkök | 10. rész |
| 2784 | Windows | Tippek, trükkök | 11. rész |
| 2829 | Windows | Tippek, trükkök | 12. rész |
| 2889 | Windows | Windows XP tippek | 13. rész |
| 2909 | Windows | Tippek Windows XP-hez | 14. rész |
| 2919 | Windows | Windows tippek | 15. rész |
| 2924 | Windows | Windows tippek | 16. rész |
| 2963 | Windows | Windows tippek | 17. rész |
| 2973 | Windows | Windows Tippek | 18. rész |
| 2981 | Windows | Windows tippek | 19. rész |
| 2990 | Windows | Tippek-trükkök | 20. rész |
| 3027 | Windows | IIS tippek | 21. rész |
| 3034 | Windows | Windows XP tippek-trükkök | 22. rész |
| 3088 | Windows | Windows 2000/XP tippek, trükkök | 23. rész |
| 3133 | Windows | Windows XP tippcsokor | 24. rész |
| 3140 | Windows | Windows XP tippek, trükkök | 25. rész |
| 3152 | Windows | XP és IIS tippek - trükkök | 26. rész |
| 3158 | Windows | Windows XP tippek, trükkök | 27. rész |
| 3168 | Windows | Tippek, trükkök | 28. rész |
| 3170 | Windows | Registry trükkök | 29. rész |
| 3179 | Windows | Tippek, trükkök | 30. rész |
| 3197 | Windows | Windows XP tippek, trükkök | 31. rész |
| 3205 | Windows | Tippek, trükkök | 32. rész |
| 3214 | Windows | Tippek, trükkök | 33. rész |
| 3223 | Windows | Tippek, trükkök | 34. rész |
| 3233 | Windows | Tippek, trükkök | 35. rész |
| 3271 | Windows | Tippek, trükkök | 36. rész |
| 3307 | Windows | Tippek, trükkök | 37. rész |
| 3370 | Windows | Tippek, trükkök | 38. rész |
| 3399 | Windows | Tippek, trükkök | 39. rész |
| 3510 | Windows | Tippek, trükkök | 40. rész |
| 3611 | Windows | Hardverrel kapcsolatos tippek, trükkök | 41. rész |
| 3668 | Windows | Registry trükkök | 42. rész |
| 3711 | Windows | Tippek, trükkök | 43. rész |
| 3771 | Windows | Tippek, trükkök | 44. rész |
| 3801 | Windows | Tippek, trükkök | 45. rész |
| 3831 | Windows | Tippek, trükkök | 46. rész |
| 3891 | Windows | Tippek, trükkök | 47. rész |
| 3921 | Windows | Tippek, trükkök | 48. rész |
| 3981 | Windows | Tippek, trükkök | 49. rész |
| 4041 | Windows | Tippek, trükkök | 50. rész |
| 4071 | Windows | Tippek, trükkök | 51. rész |
| 4151 | Windows | Tippek, trükkök | 52. rész |
| 4171 | C# | Tippek, trükkök | 53. rész |
| 4211 | Windows | Tippek, trükkök | 54. rész |
| 4251 | Windows | Tippek, trükkök | 55. rész |
| 4281 | Windows | Tippek, trükkök | 56. rész |
| 3589 | Delphi | Tippek, trükkök | 57. rész |
| 3718 | Delphi | Tippek, trükkök | 58. rész |
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2003 évkönyv 197. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|