mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-17 22:30:28 +01:00
34 lines
902 B
PHP
34 lines
902 B
PHP
{%MainUnit ../lclintf.pas}
|
|
|
|
// Open a given URL with the default browser
|
|
function OpenURL(AURL: String): Boolean;
|
|
var
|
|
cf: CFStringRef;
|
|
url: CFURLRef;
|
|
begin
|
|
if AURL = '' then
|
|
Exit(False);
|
|
cf := CFStringCreateWithCString(kCFAllocatorDefault, @AURL[1], kCFStringEncodingUTF8);
|
|
if not Assigned(cf) then
|
|
Exit(False);
|
|
url := CFURLCreateWithString(nil, cf, nil);
|
|
Result := LSOpenCFURLRef(url, nil) = 0;
|
|
CFRelease(url);
|
|
CFRelease(cf);
|
|
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;
|