Código Delphi [-] ... uses Registry; ... begin with TRegistry.Create do if KeyExists('Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then MessageBoxA(0,'LLave encontrada!','Bien', 64) else MessageBoxA(0,'LLave no encontrada!','Mal', 64) end; ...
... uses Registry; ... begin with TRegistry.Create do if KeyExists('Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then MessageBoxA(0,'LLave encontrada!','Bien', 64) else MessageBoxA(0,'LLave no encontrada!','Mal', 64) end; ...