mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: GetDesktopEnvironment function

Browse source
This commit is contained in:
Alexander Koblov 2009-01-24 16:33:51 +00:00
commit 3ad61b779c
1 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
umyunix.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
This unit contains specific UNIX functions.
Copyright (C) 2008 Koblov Alexander (Alexx2000@mail.ru)
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -34,6 +34,12 @@ const
_PATH_FSTAB = '/etc/fstab';
_PATH_MOUNTED = '/etc/mtab';
const
DE_UNKNOWN = 0;
DE_KDE = 1;
DE_GNOME = 2;
DE_XFCE = 3;
type
PIOFILE = Pointer;
PFILE = PIOFILE;
@ -125,6 +131,7 @@ function getgrnam(name: PChar): PGroupRecord; cdecl; external libc name 'getgrna
function UnixToWinAge(UnixAge: time_t): LongInt;
function LinuxToWinAttr(pFileName: PChar; const srInfo: BaseUnix.Stat): Longint;
function GetDesktopEnvironment: Cardinal;
implementation
@ -149,5 +156,24 @@ begin
Result:= Result or faSysFile;
end;
function GetDesktopEnvironment: Cardinal;
var
DesktopSession: String;
begin
Result:= DE_UNKNOWN;
if GetEnvironmentVariable('KDE_FULL_SESSION') <> '' then
Exit(DE_KDE);
if GetEnvironmentVariable('GNOME_DESKTOP_SESSION_ID') <> '' then
Exit(DE_GNOME);
DesktopSession:= GetEnvironmentVariable('DESKTOP_SESSION');
DesktopSession:= LowerCase(DesktopSession);
if Pos('kde', DesktopSession) <> 0 then
Exit(DE_KDE);
if Pos('gnome', DesktopSession) <> 0 then
Exit(DE_GNOME);
if Pos('xfce', DesktopSession) <> 0 then
Exit(DE_XFCE);
end;
end.