Changeset 95 for trunk/Packages

Timestamp:

Feb 3, 2022, 11:39:12 PM (3 years ago)

Author:

chronos

Message:

• Added: URLs and emails can be opened in default applications.

File:

• trunk/Packages/Common/UCommon.pas (modified) (2 diffs)

trunk/Packages/Common/UCommon.pas

@@ -68 +68 @@
 function OccurenceOfChar(What: Char; Where: string): Integer;
 procedure OpenWebPage(URL: string);
+procedure OpenEmail(Email: string);
 procedure OpenFileInShell(FileName: string);
 function PosFromIndex(SubStr: string; Text: string;
@@ -475 +476 @@
 end;
 
+procedure OpenEmail(Email: string);
+begin
+  OpenURL('mailto:' + Email);
+end;
+
 procedure OpenFileInShell(FileName: string);
 begin