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
40
41
42
43
44
45
46
47
48
49
|
{%MainUnit ../lclintf.pas}
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
begin
Result := FindPredefinedBrowser(ABrowser, AParams);
end;
// Open a given URL with the default browser
function OpenURL(AURL: String): Boolean;
var
ABrowser, AParams: String;
begin
// Android uses this
if Assigned(OpenURLWidgetsetImplementation) then
Exit(OpenURLWidgetsetImplementation(AURL));
Result := FindDefaultBrowser(ABrowser, AParams) and
FileExistsUTF8(ABrowser) and FileIsExecutable(ABrowser);
if not Result then
Exit;
RunCmdFromPath(ABrowser,Format(AParams, [AURL]));
end;
// Open a document with the default application associated with it in the system
function OpenDocument(APath: String): Boolean;
var
lApp: string;
begin
// Android uses this
if Assigned(OpenDocumentWidgetsetImplementation) then
Exit(OpenDocumentWidgetsetImplementation(APath));
Result := True;
if not (FileExistsUTF8(APath) or DirectoryExistsUTF8(APath)) then
Exit(false);
lApp:=FindFilenameOfCmd('xdg-open'); // Portland OSDL/FreeDesktop standard on Linux
if lApp='' then
lApp:=FindFilenameOfCmd('kfmclient'); // KDE command
if lApp='' then
lApp:=FindFilenameOfCmd('gnome-open'); // GNOME command
if lApp='' then
Exit(False);
if (APath<>'') and (APath[1]<>'"') then
APath:=QuotedStr(APath);
RunCmdFromPath(lApp,APath);
end;
|
