1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
procedure TForm1.LitBureau (sender: TObject);
{Trouver le nom et le chemin du bureau qui varient selon la langue}
var
sList: TStringList;
i: Integer=0;
begin
sList := TStringList.Create;
try
{On charge en mémoire le fichier user-dirs.dir}
sList.LoadFromFile (GetEnvironmentVariable('HOME') + '/.config/user-dirs.dirs');
for i := 0 to sList.Count -1 do
begin
{On lit la ligne DESKTOP_DIR dans users-dirs.dirs}
if Copy (sList [i], 1, 23) = 'XDG_DESKTOP_DIR="$HOME/'
then
begin
{On crée une chaîne du type /home/utilisateur/Bureau en supprimant le reste}
CheminBureau := GetEnvironmentVariable('HOME')
+ StringReplace (sList [i], 'XDG_DESKTOP_DIR="$HOME', '', [rfReplaceAll]);
CheminBureau := StringReplace (CheminBureau, '"', '', [rfReplaceAll])
end;
end;
except
on E: EInOutError do
ShowMessage ('File error')
end;
sList.Free;
end; |
Partager