Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Прочитайте ключ под HKEY_CLASSES_ROOTCLSID*, просматривая его насчёт ключей, которые имеют подключ "Borland DataBroker". Эти вхождения и являются серверами приложений.
Ниже пример, который загружает имена доступных серверов приложений в Listbox:
usesRegistry; procedure
TForm1.FormCreate(Sender: TObject); var
I: integer; TempList: TStringList; begin
TempList := TStringList.Create; try
with
TRegistry.Create do
try
RootKey := HKEY_CLASSES_ROOT; if
OpenKey('CLSID', False
) then
GetKeyNames(TempList); CloseKey; for
I := 1 to
TempList.Count - 1 do
if
KeyExists('CLSID' + TempList[I] + 'Borland DataBroker') then
begin
if
OpenKey('CLSID' + TempList[I] + 'ProgID', False
) then
begin
Listbox1.Items.Add(ReadString('')); CloseKey; end
; end
; finally
Free; end
; finally
TempList.Free; end
; end
;