Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
procedure TMainForm.RegisterFileType; var Reg : TRegistry; Begin Reg := TRegistry.Create; try with Reg do begin RootKey := HKEY_CLASSES_ROOT; OpenKey('\ITKnowledgeBase', True); WriteString('', 'ITKnowledgeBase File'); CloseKey; OpenKey('ITKnowledgeBase\DefaultIcon', True); WriteString('', Application.ExeName + ',0'); CloseKey; OpenKey('ITKnowledgeBase\shell\open\command', True); WriteString('', Application.ExeName + '1'); CloseKey; RootKey := HKEY_CLASSES_ROOT; OpenKey('\.PKD', True); WriteString('', 'ITKnowledgeBase'); CloseKey; end; finally Reg.CloseKey; Reg.Free; end; end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Delphi Dbf export problem to a Visual Foxpro application||6||231|
|How to debug For loops?||3||60|
|How to Get Images From Server using App Tethering||11||42|