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;
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;