A PATH könyvtárlista lekérdezése és szerkesztése komponenssel

A mellékelt példaprogram megnyitása előtt a Path.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A könyvtárlista a Registry adatbázisban a HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\Environment kulcs alatt található Path azonosító értékéből olvasható ki. Az egyes könyvtárak pontosvesszővel vannak egymástól elválasztva. Sajnos néhány Windows verziónál a fenti kulcs annyiban módosul, hogy a SessionManager kulcsnál a két szó között egy szóköz van: „Session Manager”.

A komponensnek van egy Paths nevű TStringList típusú property-je, amelyben a könyvtárlistát megkapjuk, illetve módosíthatjuk. A property-ben minden sor egy könyvtárnak felel meg.

A ReadPaths eljárás olvassa ki a Registry-ből a könyvtárlistát, és az AddPaths írja vissza oda a Paths property tartalmát. Mindkét esetben szükség van átalakításra, de ez szerencsére egyszerűen megoldható a TStringList osztály CommaText property-jét és a StringReplace függvényt felhasználva. Az első esetben a pontosvesszőket kell vesszőre cserélni, míg a második esetben ez fordítva történik. A kiolvasásnál a pontosvesszőket úgy cseréljük vesszőkre, hogy közben az egyes elérési utakat idézőjelek közé tesszük. Így kiküszöbölhetjük azt a hibát, hogy a CommaText property azokat az útvonalakat, melyek szóközöket is tartalmaznak, a szóközök mentén különálló soroknak értelmezze.

Mentéskor az elérési utakat rövid formátumra alakítjuk a GetShortPathName függvénnyel.

A könyvtárlista mentését az Update eljárással tudjuk megtenni, ami nem tesz mást, mint meghívja az AddPaths eljárást.

Az új beállítások érvénybeléptetéséhez újra kell indítani a rendszert.