Jak najit cestu k souboru – Delphi – Fórum – Programujte.com

Zdravím.

Potřebuji najit cestu k sourboru, ktery je umistěn v adresaři, kde si uklada mizilla firefox profil.

Normalně by to bylo takto.

SHGetPathFromIDList(pidl,cesta);
CelaCesta_Firefox := cesta + '\Mozilla\Firefox\Profiles\iu9a24n6.default\';

Problem je že v každem prohližeči je ten poslední adresař jiny.

Vždy tam je to default.

Měni se jen to před nim  iu9a24n6

V CMD jsem to rozchodil takto

cd /D "%APPDATA%\Mozilla\Firefox\Profiles"
cd *.default
set ffile=%cd%

Co jsem tak koukal, tak název té složky je uložený v "%appdata%\Mozzila\Firefox\profiles.ini"

Čili si stačí to odtamtud vytáhnout.

Na to jsem take koukak.

Myslel jsem zda není jine řešení.

Do bataku stačilo   *.default 

Tak jsem to načet s toho ini a je to OK.

#3 Borisek

A přece zadrhel.

Pokud si vytvořim profil tam kde se ukladaji tak je to OK

Path=Profiles/swocnxd9.default

Když ho však vytvořim na jiny HD tak je to v *****

Path=E:\ZALOHA\Mozilla Profiles

SHGetPathFromIDList(pidl,cesta);
cestakini := cesta + '\Mozilla\Firefox\profiles.ini';
  If FileExists(cestakini)= true then
                                               Begin
                                               IniFile:= TIniFile.Create (cestakini);
                                               NazevProfilu:= IniFile.ReadString ('Profile0','Path',NazevProfilu);
                                               IniFile.Destroy;
                                               end;

CelaCesta_Firefox := cesta + '\Mozilla\Firefox\'+ NazevProfilu + '\prefs.js';

http://kb.mozillazine.org/Profiles.ini_file

Od toho je u každého profilu "IsRelative". To když je nula, tak je cesta k profilu absolutní a tudíž tvůj kód z pochopitelných důvodů nefunguje. Takže testovat tuhle hodnotu a podle toho se zařídit.

Dik