mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-03 04:37:23 +01:00
33 lines
820 B
PHP
33 lines
820 B
PHP
{%MainUnit ../lclintf.pas}
|
|
|
|
// 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(False);
|
|
url := NSURL.URLWithString(NSStr(@AURL[1]));
|
|
if not Assigned(url) then
|
|
Exit(False);
|
|
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;
|
|
begin
|
|
Result := True;
|
|
if not FileExistsUTF8(APath) then exit(false);
|
|
// 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;
|