Re: DLL of ActiveX GUID

"alanglloyd@xxxxxxx" <alanglloyd@xxxxxxx> wrote in
news:1190368779.159021.302650@xxxxxxxxxxxxxxxxxxxxxxxxxxx:

On 21 Sep, 10:00, "Chris.Cheney" <Chris.CheneyXXNOSPA...@xxxxxxxxx>
wrote:
No way round it that I know of. But it's really not too bad if you use
the MS API:

<snip>

Thanks, Chris. I was just being idle. Just how incredibly idle you can
see from the Delphi code <g>.

function TInsSpMkDll.ActiveXDLL(Guid : TGuid) : string;
var
Reg : TRegistry;
DLLKey : string;
begin
Result := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
DLLKey := '\CLSID\' + GUIDToString(Guid) + '\InprocServer32';
if Reg.OpenKey(DLLKey, false) then
Result := Reg.ReadString('');
finally
Reg.Free;
end;
end;

Alan Lloyd

Well perhaps I should revert to using the Delphi registry stuff! Chris
.