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
30
31
32
33
34
35
36
37
38
39
|
{%MainUnit ../lclintf.pas}
// Locates the default browser associated in the system
function FindBrowserExecutable(const ShortFilename: String; out ABrowser: String): Boolean; inline;
begin
ABrowser := SearchFileInPath(ShortFilename + GetExeExt, '',
GetEnvironmentVariableUTF8('PATH'), PathSeparator,
[sffDontSearchInBasePath]);
Result := (ABrowser <> '');
end;
const
PredefinedBrowserStrings: array[1..11] of String = (
'xdg-open',
'htmlview',
'firefox',
'mozilla',
'google-chrome',
'galeon',
'konqueror',
'safari',
'netscape',
'opera',
'iexplore'
);
function FindPredefinedBrowser(out ABrowser, AParams: String): Boolean;
var
i: Integer;
begin
ABrowser := '';
AParams := '"%s"';
for i := Low(PredefinedBrowserStrings) to High(PredefinedBrowserStrings) do
if FindBrowserExecutable(PredefinedBrowserStrings[i], ABrowser) then Break;
Result := (ABrowser <> '');
end;
|
