Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
uses
ShellAPI, Registry;
procedure
OpenURL(Url: string
); var
ts: string
; begin
with
TRegistry.Create do
try
rootkey := HKEY_CLASSES_ROOT;
OpenKey('htmlfileshellopencommand',
False);
try
ts := ReadString(''); except
ts := ''; end
; CloseKey; finally
Free; end
; if
ts = '' then
Exit;
// remove quotes and commandline
parameters
ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
ts := Copy(ts, 1, Pos('"', ts) - 1);
ShellExecute(0, 'open', PChar(ts), PChar(url), nil
, SW_SHOW); end
;
procedure
TForm1.Button1Click(Sender: TObject); begin
OpenURL('http://www.SwissDelphiCenter.ch');
end
;