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
50
51
52
53
|
{%MainUnit ../lclintf.pas}
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
begin
// open command launches url in the appropriate browser under Mac OS X
FindBrowserExecutable('open', ABrowser);
AParams := '"%s"';
Result := (ABrowser <> '');
if not Result then
begin
Result := FindPredefinedBrowser(ABrowser, AParams);
end;
end;
// Open a given URL with the default browser
function OpenURL(AURL: String): Boolean;
var
url: NSURL;
ws: NSWorkspace;
begin
Result := False;
if AURL = '' then
Exit;
url := NSURL.URLWithString(NSString.stringWithUTF8String(@AURL[1]));
// scheme is checking for "protocol" specifier.
// if no protocol specifier exist - do not consider it as URL and fail
if not Assigned(url) or (url.scheme.length = 0) then
Exit;
ws := NSWorkspace.sharedWorkspace;
Result := ws.openURL(url);
end;
// Open a document with the default application associated with it in the system
function OpenDocument(APath: String): Boolean;
var
ResultingPath: string;
lpath: string;
begin
Result := True;
if not FileExistsUTF8(APath) and not DirectoryExistsUTF8(Apath) then begin
// OpenDocument handles URLs as well
Result := OpenURL(Apath);
Exit;
end;
// Paths with spaces need to be quoted, see bug 21651
if (APath<>'') and (APath[1]<>'''') then
ResultingPath:=QuotedStr(APath)
else
ResultingPath:=APath;
RunCmdFromPath('open',ResultingPath);
end;
|
