|
|
Egy állomány használatban van-e?
|
|
Példaprogram letöltése
4159 bájt
|
Nagy valószínűséggel már mindenki találkozott olyan esettel, amikor egy állományt törölni vagy módosítani akart, de azt a rendszer nem engedte, arra hivatkozva, hogy az állományt más program használja. Készítünk egy komponenst, amely segítségével lekérdezhetjük, hogy egy megadott állományt használ-e már valamilyen program, vagy sem.

A mellékelt példaprogram megnyitása előtt az InUse.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
Az InUse komponens FileName tulajdonságában kell megadnunk annak az állománynak az elérési útját és nevét, amelyet vizsgálni szeretnénk. Ha megadtuk az állomány nevét, meg kell hívnunk a komponens IsUsed metódusát.
function IsUsed: Boolean;
Ha az állományt valamilyen program már használja, úgy hogy a program bezárásáig a fájlt sem felülírni, sem törölni nem lehet, akkor az IsUsed függvény visszatérési értéke igaz, ellenkező esetben hamis.
Komponensünket a TComponent osztályból származtatjuk.
A komponens működésének kulcsa a CreateFile API függvény.

CreateFile
HANDLE CreateFile(
LPCTSTR lpFileName,
DWORD dwDesiredAccess,
DWORD dwShareMode,
LPSECURITY_ATTRIBUTES lpSecurityAttributes,
DWORD dwCreationDispostion,
DWORD dwFlagsAndAttributes,
HANDLE hTemplateFile
);
A CreateFile API függvény sokfajta objektum létrehozására és megnyitására alkalmas. Többek között létrehozhatunk vele új állományokat vagy megnyithatunk már létezőket.
Paraméterek
lpFileName
A létrehozandó vagy megnyitandó állomány neve.
dwDesiredAccess
A megadott állományhoz történő hozzáférés módját határozza meg. GENERIC_READ esetén olvasásról, GENERIC_WRITE esetén pedig írásról van szó. A két paraméter egyszerre is megadható, ilyenkor a hozzáférés módja írás-olvasás.
dwShareMode
Számunkra ez a kulcsfontosságú paraméter. Ez határozza meg, hogy a megadott állomány használata milyen formában osztható meg az egyes azonosítók között. Amikor egy program használja a megadott állományt, akkor a rendszerben már létezik egy azonosító, ami erre az állományra mutat. Ha itt 0 paramétert adunk meg, akkor az állomány nem nyitható meg, csak akkor, ha a rendszer még nem tartalmaz egyetlen azonosítót sem, amely erre az állományra mutatna.
lpSecurityAttributes
Itt csak Nil érték szerepelhet.
dwCreationDispostion
Ebben a paraméterben adhatjuk meg, hogy új állományt szeretnénk-e létrehozni, vagy már létezőt megnyitni. Új állomány létrehozása esetén a CREATE_NEW, megnyitás esetén az OPEN_EXISTING paramétereket használhatjuk.
dwFlagsAndAttributes
Ebben a paraméterben megadhatjuk a fájl attribútumát. Az itt szereplő értékek a következők lehetnek: FILE_ATTRIBUTE_ARCHIVE, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_SYSTEM.
hTemplateFile
Itt 0 értéknek kell szerepelnie.
Visszatérési érték
Egy HFile típusú azonosító, amely a létrehozott vagy megnyitott objektumra mutat.
A CreateFile függvény meghívása után, az alábbi módon dönthetjük el, hogy az állomány használatban van-e:
Result:=FileHandle=INVALID_HANDLE_VALUE;
|
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 46. 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!
|