procedure RegisterDllConifg();
var
ARegistry: TRegistry;
begin
ARegistry := TRegistry.Create;
with ARegistry do
begin
try
RootKey := HKEY_CLASSES_ROOT; //指定根键为HKEY-LOCAL-ROOT
if OpenKey('Licenses', False) then
begin
if (not OpenKey('4250E830-6AC2-11cf-8ADB-00AA00C00905', False)) then
begin
WinExec('regsvr <DTD.DLL>', SW_NORMAL);
if OpenKey('4250E830-6AC2-11cf-8ADB-00AA00C00905', True) then
WriteString('', 'kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun');
end;
end;
finally
CloseKey;
Destroy;
end;
end;
end;